此主题相关图片如下：jx_rp)lbo9z2n368v3@wjgv.png
此主题相关图片如下：jc$4~yh0`x}9$j6rm9(7dj.png
下面为什么会报错 
With e.Form
Dim dt1 As Date = .Controls("DateTimePicker1").value
Dim dt2 As Date = .Controls("DateTimePicker2").value
Dim dr As DataCol = e.DataCol
Dim hj As String=.controls("textbox1").value
Dim dt As DataTable =DataTables("仓库工作地图录入一览")
If e.DataCol.Name = "得分" And dr.IsNull("得分") = False And Filter = "提报日期 >= #" & dt1 & "# And 提报日期 <= #" & dt2 & "#"
Then
hj = dt.Compute("Sum(" & dr("得分") & ")")
End If
End With
加好友 
发短信
Post By：2015/10/15 14:25:00 [显示全部帖子]
