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

原来的写法是： 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 ) >