以下代码红色部分提示错误，谁能帮我修正，先谢了。
DataTables("导体报表").DataRows.Clear
Dim s As String = e.Form.Controls("月份").Value
If s <> "" Then
Dim f As New Filler
f.SourceTable = DataTables("导体明细")
f.DataTable = DataTables("导体报表")
f.ExcludeExistValue = True
f.Filter = "月份 = '" & s & "'"
f.Fill()
For Each dr As DataRow In DataTables("导体报表").DataRows
Dim s1 As String = "导体分类 = '" & dr("导体分类") & "' And 规格 = '" & dr("规格") & "' And 月份 = '" & s & "'"
dr("车间领料") = DataTables("导体明细").Compute("Sum(产量)",s1 And "用户 = '购进' ")
'dr("本月入仓") = DataTables("线缆导体明细").Compute("Sum(入仓数量)",s1)
'dr("本月出仓") = DataTables("线缆导体明细").Compute("Sum(出仓数量)",s1)
s1 = "规格 = '" & dr("规格") & "' And 月份 < '" & s & "'"
'dr("上月结存") = DataTables("线缆导体明细").Compute("Sum(入仓数量)",s1) - DataTables("线缆导体明细").Compute("Sum(出仓数量)",s1)
'dr("本月结存") = dr("上月结存") + dr("本月入仓") - dr("本月出仓")
Next
End If
DataTables("导体报表").DeleteFor(" [规格] is null " )
加好友 
发短信
Post By：2013/5/17 7:02:00 [只看该作者]
