Tables("材料")是不是又定位Tables("导入材料.导入材料明细")了，这样试试
If Forms("导入材料").Opened AndAlso Forms.ActiveForm.Name = "导入材料" Then
Dim dr As Row = Tables("导入材料.导入材料明细").Current
MessageBox.show(0)
If dr IsNot Nothing AndAlso dr.IsNull("定额编码")=False Then
Dim i As Integer= Tables("材料").FindRow("定额编码 = '" & dr("定额编码") & "'")
If i >= 0 Then
MessageBox.show(1)
SystemReady = False
Tables("材料").Position = i
SystemReady = True
End If
End If
End If
加好友 
发短信
Post By：2016/9/20 17:36:00 [显示全部帖子]
