如改成下列代码:Dim cmb16 As WinForm.TextBox = e.form.Controls("TextBox16")
Dim filter16 As String
filter16 = "类别 = '计划' and 加工先 = 'W0902'"
Dim d1 As WinForm.DateTimePicker
Dim d2 As WinForm.DateTimePicker
d1 = e.Form.Controls("开始日期")
d2 = e.Form.Controls("结束日期")
If d1 <> Nothing Then
filter16 &= " And 开始日 >= #" & d1 & "#"
End If
If d2 <> Nothing Then
filter16 &= " and 开始日 <= #" & d2 & "#"
End If
Dim sum16 As Double = 0
For Each dr As DataRow In DataTables("实际明细").Select(filter16)
sum16 += dr("机") * dr("投入数量") / 60
Next
cmb16.text = Sum16
则显示如图错误:
此主题相关图片如下:9.png