老师请帮忙看看
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 IsNot Nothing AndAlso dr1.Isnull("工序1时间") Then
Dim a As Double = dr1("工序1时间")
Dim sjd As new timespan(a)
sj = sj.Add(sjd)
msgbox(sjd.seconds)
Else
msgbox("没有找到")
End If
Next
老师，为什么会查找不到dr1呢？我订单里的产品都是从产品列表里选的，Tables("产期计算_table1")这个是作为订单的副表出现在窗口的，我一打开窗口就提示我“没有找到”，我想不明白为什么
[此贴子已经被作者于2016/7/6 10:19:32编辑过]
加好友 
发短信
Post By：2016/7/6 10:18:00 [只看该作者]
