If e.DataCol.Name = "收款人" AndAlso e.NewValue <> Nothing Then
'Forms("更新提示").Show
Dim fdr As DataRow = DataTables("供应商资料表").Find("收款人 = '" & e.NewValue & "'")
If fdr Is Nothing Then
fdr = DataTables("供应商资料表").AddNew
fdr("收款人") = e.DataRow("收款人")
fdr("公司名称") = e.DataRow("公司名称")
fdr("主材部门") = e.DataRow("公司名称")
fdr("支付类型") = e.DataRow("支付类型")
End If
End If
上面代码会给操作者假死的感觉 希望增加一个动态态 显示进度比例 或者显示当前刚刚新增的类容 已经完成 收款人 的更新
[此贴子已经被作者于2019/8/6 13:13:27编辑过]