Dim dt As DataTable = DataTables("机关维护")
Dim fg As Boolean
Dim r2 As DataRow
For Each r As Row In Tables("传piao编辑_table1").GetCheckedRows
r2 = dt.Find("机关名称='" & r("收件人_单位名称") & "'")
If r2 IsNot Nothing Then
If MessageBox.Show("是否覆盖?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
fg = True
End If
End If
Next
For Each r As Row In Tables("传piao编辑_table1").GetCheckedRows
r2 = dt.Find("机关名称='" & r("收件人_单位名称") & "'")
If r2 IsNot
If fg = False Then
Continue For
End If
Else
r2 = dt.AddNew
End If
r2("机关名称") = r("收件人_单位名称")
r2("住所地") = r("收件人_地址")
r2("委托代理人1_姓名") = r("收件人_姓名")
r2("委托代理人1_联系电话") = r("收件人_移动电话")
r2("委托代理人1_单位") = r("收件人_单位名称")
Tables("机关维护").Sort = "机关名称"
Next
Tables("机关维护").Sort = "机关名称"
加好友 
发短信
Post By：2018/1/19 23:17:00 [显示全部帖子]
