主题：生成电子表的打印条件写法

内部表生成电子表时，请教如何写入打印条件

 

原来的写法是： Sheet1(3,12).Value = "<渠道='统发' and 是否在职 = '在职'  >"

现在想增加一个条件：进编年月 = CurrentY  * 10 + 8       其中，进编年月为字符列，CurrentY为全局整数变量

 

写了好几个写法都不对，就加了个代码:

                                                  Dim 本年进编月 As Integer = CurrentY * 10 + 8

 

然后写成 :

              Sheet1(3,12).Value = "<渠道='统发' and 是否在职 = '在职' and 进编年月 = 本年进编月 >"

 

进编年月 = 本年进编月 ,

此写法肯定不对，但改了好几种写法，都没有成功，敬请老师指教，这里和填写电子表里的数据好像很不同

 

学习一下。

 

Sheet1(3,12).Value = "<渠道='统发' and 是否在职 = '在职' and 进编年月 = '" & CurrentY  * 10 + 8  & "' >"

谢谢版主

 

 

再请教一下：

 

（1） Sheet1(3,10).Value = " < [房积金] / 4 >  "   是将所有记录的数值除以4，如果要除以 CurrentM - 8 ，该怎么写？ （CurrentM是数值变量）

 

               " < [房积金] /  (CurrentM - 8) >  "   写法好像不行 

 

（2） 将上述的数值除以  （CurrentM - 8） 后，再求和，又该怎么写？

   

        " <(*[%sum(房积金)]*) /  (CurrentM - 8)  > "    行不行 ？

改成var变量，参考

 

http://www.foxtable.com/webhelp/scr/1391.htm

 

http://www.foxtable.com/webhelp/scr/2117.htm

 

http://www.foxtable.com/webhelp/scr/2294.htm

 

尝试写了好几个，都没有成功，其中第一个计算的时候 运算成 [房积金] / (  0- 8 ) ，把 [!CurrentM] 当成了0，

 

(1)把数据除以一个数

Sheet1(3,10).Value = " < [房积金] / ( [!CurrentM] - 8 ) >  "  

Sheet1(3,10).Value = " < * [房积金] / ( [!CurrentM] - 8 ) * >  "  

 

（2）上述数据累计求和

 Sheet1(4,10).Value = " <(*[%sum(房积金)]*) / ( [CurrentM] - 8)  > " 

 

请老师抽空指导一下，这个太难了，又没找到实例参考

你在代码里要赋值，如

 

vars("CurrentM") = 123

看8楼，我这样写没问题

 

< [房积金] / ( [!CurrentM] - 8 ) > 

甜老师，我这里的CurrentM是全局变量，数值是11