- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 无法用变量替代请老师帮我看看 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=65091)
-- 发布时间：2015/3/9 11:42:00
-- 无法用变量替代请老师帮我看看
Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("A表")
If e.DataCol.Name = "指标" And dr.IsNull("指标") = False Then
dr("C列") = dt.Compute("Count(名称)", dr("指标") & " < 1")
End If
执行C列赋值正常
增加变量改为：
Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("A表")
Dim zb1 As Short
If e.DataCol.Name = "指标" And dr.IsNull("指标") = False Then
zb1 = dt.Compute("Count(名称)", dr("指标") & " < 1")
End If
dr("C列") = zb1
无法给C列赋值不知道错在哪？
-- 发布时间：2015/3/9 11:43:00
--
Dim zb1 As integer
-- 发布时间：2015/3/9 14:05:00
--
改了还不行
-- 发布时间：2015/3/9 14:08:00
--
提示什么? 用 Double 看看
-- 发布时间：2015/3/9 14:10:00
--
Double怎么用
-- 发布时间：2015/3/9 14:10:00
--
代码不可能报错啊，报错就请上传具体里例子
Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("A表")
Dim zb1 As Integer
If e.DataCol.Name = "指标" And dr.IsNull("指标") = False Then
zb1 = dt.Compute("Count(名称)", dr("指标") & " < 1")
dr("C列") = zb1
End If
-- 发布时间：2015/3/9 14:11:00
--
Dim zb1 As double
-- 发布时间：2015/3/9 14:50:00
--
感谢老师问题解决了
