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

 

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