stringvar strx := "";
stringvar stry := "";
stringvar strz := "";
numbervar z;
strx:=totext();
stry:=totext();
mid(strx,1,length(strx)-instr(strx,".")-1)+"/"+ mid(stry,1,length(stry)-instr(stry,".")-1)
left(totext(),length(totext())-3) & "/" & left(totext(),length(totext())-3)
function vbcint( numbervar z)
stringvar strx:='';
numbervar i:=0;
strx:=totext(z);
i:=instr(strx,'.');
if i>0 then
mid(strx,1,length(strx)-instr(strx,".")-1)
else
strx
乙個水晶報表的數字轉換成中文大寫的公式!
trackback:
stringvar x;
stringvar xx := "";
numbervar z;
numbervar i;
x := totext();
x := left(x,length(x)-5); //這裡所減去的數字,是小數點後面的位數加1的值
//我這裡是儲存時保留小數點後4 位,所以只能精確到個位。
x := replace(x,",","");
z := length(x);
for i := z to 1 step -1 do
(select i
case 8 : if(mid(x,z-i+1,1)<>"0") then xx := mid(x,z-i+1,1) + "十"
case 7 : if(mid(x,z-i+1,1)<>"0") then xx := xx + mid(x,z-i+1,1) + "億" else xx := xx + "億"
case 6 : if(mid(x,z-i+1,1)<>"0") then xx := xx + mid(x,z-i+1,1) + "仟"
case 5 : if(mid(x,z-i+1,1)<>"0") then xx := xx + mid(x,z-i+1,1) + "佰"
case 4 : if(mid(x,z-i+1,1)<>"0") then xx := xx + mid(x,z-i+1,1) + "十"
case 3 : if(mid(x,z-i+1,1)<>"0") then xx := xx + mid(x,z-i+1,1) + "萬" else xx := xx + "萬"
case 2 : if(mid(x,z-i+1,1)<>"0") then xx := xx + mid(x,z-i+1,1) + "仟"
case 1 : if(mid(x,z-i+1,1)<>"0") then xx := xx + mid(x,z-i+1,1) + "佰"
);xx := replace(xx,"1","壹");
xx := replace(xx,"2","貳");
xx := replace(xx,"3","叄");
xx := replace(xx,"4","肆");
xx := replace(xx,"5","伍");
xx := replace(xx,"6","陸");
xx := replace(xx,"7","柒");
xx := replace(xx,"8","捌");
xx := replace(xx,"9","玖");
xx + "元整";
水晶報表公式組合,推試顯示報表
舉例 現在有3張表 student表 course表 class 表 學號 姓名 班級id id 學號 所修課程 班級id 名稱 001 peter jd001 1 001 英語 jd001 文科班 002 sam jd001 2 001 語文 jd002 理科班 003 tony jd001 3 ...
水晶報表 建立報表
水晶報表是乙個優秀的報表開發工具,本人在開發通用管理系統的時候,所有報表都使用水晶報表,其簡單 易用和強大的功能令筆者倍加喜愛,現將水晶報表使用手記呈現給大家。一 在使用自帶的水晶報表時,請註冊,否則只能使用30次 二 使用crystalreportviewer進行預覽 crystalreportv...
水晶報表 子報表
經過了一段時間對水晶報表的操作,我對其稍稍了解了一點點。這兩天,一直在為資料量太大而煩惱,我有六張表,其中一張關聯剩餘的五張表。想要顯示資料,結果,顯示不出來,即使我已經在鏈結裡面設定了左外連線。我知道這個是按照笛卡爾積相乘,所以資料會成倍的增加。所以,即使我改用直接連線資料庫的方式也行不通。就是p...