你的错误很多，有判断，但是判断条件之外，还是有用Current，这样的判断就没有意义了。还有，代码之中，最好用e.Table，不要用CurrentTable，当前Table和触发时间的Table，并不总是同一个Table，你看看帮助的表事件代码，都是用e参数的，从来不会有CurrentTable
f e.Table.Current IsNot Nothing Then
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("库存总表").FindRow(dr)
If wz >=0 Then
Tables("库存总表").Position = wz
End If
Tables("库存总表_Tab正常领料1").Filter = "物料编码 = '" & e.Table.Current("物料编码") & "'"
Tables("库存总表_Tab其它领料").Filter = "物料编码 = '" & e.Table.Current("物料编码") & "'"
Tables("库存总表_Tab入仓单").Filter = "物料编码 = '" & e.Table.Current("物料编码") & "'"
Tables("库存总表_Tab退货").Filter = "物料编码 = '" & e.Table.Current("物料编码") & "'"
Tables("库存总表_Tab物料").Filter = "物料_物料编码 = '" & e.Table.Current("物料编码") & "'"
Tables("库存总表_Tab超领料").Filter = "物料编码 = '" & e.Table.Current("物料编码") & "'"
End If
加好友 
发短信
Post By：2015/9/28 8:15:00 [显示全部帖子]
