试试
If Tables("历史材料明细").Focused Then
If e.Table.Current Is Nothing Then '如果Current为Nothing
Return '则返回
End If
Dim wz As Integer
Dim dr As DataRow
dr = DataTables("历史材料").Find("[历史材料编号] = '" & e.Table.Current("历史材料编号") & "'")
If dr IsNot Nothing Then
SystemReady = False
DataTables("历史材料").RemoveFor("[历史材料编号] = '" & e.Table.Current("历史材料编号") & "'") ' (注释了这个)
DataTables("历史材料").AppendLoad("[历史材料编号] = '" & e.Table.Current("历史材料编号") & "'")'(注释了这个)
SystemReady = True
wz = Tables("历史材料").FindRow("[历史材料编号] = '" & e.Table.Current("历史材料编号") & "'")
If wz >= 0 Then
Tables("历史材料").Position = wz
End If
End If
End If
加好友 
发短信
Post By：2017/5/26 9:02:00 [只看该作者]
