用 Request[Page.postEventSourceID] 可以取得觸發 PostBack 的控制項 ID
而用 __doPostBack('控制項ID','command argument'); 這一行 Javascript 就可以觸發 PostBack
2008年9月19日 星期五
2008年9月8日 星期一
數字轉中式大寫的 Crystal Report 公式
//=========================================
// 數字轉中文大寫
//=========================================
// 要轉換的數字
NumberVar VNT := (你要轉換的數字欄位);
StringVar VSU := '零壹貳參肆伍陸柒捌玖';
StringVar VST := '仟佰拾兆仟佰拾億仟佰拾萬仟佰拾元';
StringVar VNS := ToText(VNT, '0000000000000000');
NumberVar VSL := 17 - Length(TrimLeft(ToText(VNT, '################')));
StringVar VSS := '';
BooleanVar VSF;
BooleanVar VS0;
BooleanVar VS1;
BooleanVar VS2;
NumberVar VNI;
VSF := False;
for VNI := VSL to 16 do
(
VS1 := Mid(VNS, VNI, 1) <> '0';
VS2 := VS1 or (((VNI mod 4) = 0) and ((Mid(VNS, VNI - 3, 4) <> '0000') or (VNI = 16)));
VS0 := VSF and VS1;
VSF := not (VS0 or VS1 or VS2);
if VS0 then
VSS := VSS + '零';
if VS1 then
VSS := VSS + Mid(VSU, ToNumber(Mid(VNS, VNI, 1)) + 1, 1);
if VS2 then
VSS := VSS + Mid(VST, VNI, 1);
);
// 這是回傳值
VSS;
訂閱:
意見 (Atom)