以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]代码修改(已解决)  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=14403)

--  作者:yyzlxc
--  发布时间:2011/11/18 11:19:00
--  [求助]代码修改(已解决)

一段代码,目的是在交叉统计表增加5列与分组对应的列,结果出错,应该如何修改代码,请各位老师帮助指教,谢谢!!

 

For Each r As Row In t.Rows
    For k As Byte = 1 To i
        t.DataTable.DataCols.Add("平均人数_" & k , Gettype(Double),"累计人数_" & k / s2)
    Next
    For j As Byte = 1 To i
        If r("累计人数_" & j) <>  0 Then
            r("人均报酬_" & j) = r("报酬合计_" & j)/r("平均人数_" & j)
        End If
    Next
Next

 

注:s2代表月份

 

出错提示:

 


图片点击可在新窗口打开查看此主题相关图片如下:a.png
图片点击可在新窗口打开查看

 


[此贴子已经被作者于2011-11-18 15:48:56编辑过]

--  作者:狐狸爸爸
--  发布时间:2011/11/18 11:21:00
--  

messgebox.show( "累计人数_" & k / s2)

 

看看你合成的表达式到底是什么。


--  作者:yyzlxc
--  发布时间:2011/11/18 11:30:00
--  

谢谢狐爸老师的回复,但是代码加不进去。

 

 


图片点击可在新窗口打开查看此主题相关图片如下:c.png
图片点击可在新窗口打开查看

--  作者:yyzlxc
--  发布时间:2011/11/18 11:34:00
--  

结果是:

 


图片点击可在新窗口打开查看此主题相关图片如下:d.png
图片点击可在新窗口打开查看


--  作者:yyzlxc
--  发布时间:2011/11/18 11:38:00
--  

先除后赋值,肯定是错,如何先赋值后除,请狐爸老师指教,谢谢!!


--  作者:狐狸爸爸
--  发布时间:2011/11/18 11:38:00
--  

因为合成的表达式是: 累计人数_0.11111111111,所以出错。

因为s2等于0.1111111111,所以很成的表达式是:累计人数_0.11111111111。

因为什么,所以s2等于0.1111111111,这需要你自行分析处理。

 


--  作者:yyzlxc
--  发布时间:2011/11/18 12:29:00
--  

又是双引号单引号问题,参照[合计_累计人数]/"& s2,将表达式调整为""累计人数_" & k  /"& s2,还是出错!!

 

 


图片点击可在新窗口打开查看此主题相关图片如下:e.png
图片点击可在新窗口打开查看

--  作者:czy
--  发布时间:2011/11/18 12:36:00
--  
多了个引号
--  作者:yyzlxc
--  发布时间:2011/11/18 12:52:00
--  
谢谢czy老师的回复,应该如何改,请指教,谢谢!!
--  作者:mr725
--  发布时间:2011/11/18 13:07:00
--  
""累计人数_" & k  /"& s2        ===>>>    "累计人数_" & k & " / " & s2