主题：无法用变量替代请老师帮我看看

 

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列赋值不知道错在哪？

Dim zb1 As integer

改了还不行

提示什么?  用 Double 看看

Double怎么用

代码不可能报错啊，报错就请上传具体里例子

 

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

 

Dim zb1 As double

感谢老师问题解决了