If Forms("导入材料").Opened AndAlso Forms.ActiveForm.Name = "导入材料" Then
Dim dr As Row = Tables("导入材料.导入材料明细").Current
If dr IsNot Nothing AndAlso dr.IsNull("定额编码")=False Then
Dim filter As String = "定额编码 = '" & dr("定额编码") & "'"
Dim dr2 As DataRow = DataTables("材料").Find(filter)
If dr2 Is Nothing Then
Dim drs As List(of DataRow) = DataTables("材料").AppendLoad(filter, False)
If drs.Count > 0 Then
dr2 = drs(0)
Else
msgbox("不存在这个定额编码")
Return
End If
End If
If Tables("材料").Filter > 0 Then
Tables("材料").Filter = Tables("材料").Filter & " or 定额编码 = '" & dr("定额编码") & "'"
End If
Dim i As Integer= Tables("材料").FindRow(dr2)
If i >= 0 Then
SystemReady = False
Tables("材料").Position = i
SystemReady = True
End If
End If
End If
再不行就上例子测试
加好友 
发短信
Post By：2016/10/7 8:55:00 [显示全部帖子]
