Dim filter As String
filter = "[开始生产]= '" & False & "'"
If Filter > "" Then
Tables("产期计算_table1").Filter = Filter
End If
Dim sj As new timespan(0)
For Each dr As Row In Tables("产期计算_table1").Rows
Dim cp As String = dr("产品")
Dim filter1 As String
Dim dr1 As DataRow
filter1 = "[产品名称] = '" & cp & "'"
dr1 = DataTables("产品列表").find(filter1)
If dr1.Isnull("工序1时间") Then
Dim a As Double = dr1("工序1时间")
Dim sjd As new timespan(a)
sj = sj.Add(sjd)
Else
End If
Next
msgbox(sj.seconds)
代码如下，我的目的是根据产品，在产品列表查找工序时间，然后把时间加起来，计算生产用时，写到这里，测试时提示“未将对象引用到实例”，我把红色部分用‘跳过后就不会出现了。请老师帮我看看哪里有错误。谢谢
下面是打开窗口时的错误提示
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.5.13.1
错误所在事件：窗口,产期计算,AfterLoad
详细错误信息：
未将对象引用设置到对象的实例。
加好友 
发短信
Post By：2016/7/6 10:00:00 [显示全部帖子]
