我想把窗口表 Tables("传piao编辑_table1")中 复选框勾选的行写入 “机关维护”表,加黑的代码怎样修改?
谢谢!
Dim t As Table = Tables("机关维护")
For Each r As Row In Tables("传piao编辑_table1").GetCheckedRows
Dim r2 As Row = Tables("机关维护").AddNew
r2("机关名称") = r("收件人_单位名称")
r2("住所地") = r("收件人_地址")
r2("委托代理人1_姓名") = r("收件人_姓名")
r2("委托代理人1_联系电话") = r("收件人_移动电话")
r2("委托代理人1_单位") = r("收件人_单位名称")
Tables("机关维护").Sort = "机关名称"
Next
增加一个问题:能否以“机关名称”作为标志列,先判断一下是否有重复行,提示“覆盖”或“新增”写入。
[此贴子已经被作者于2018/1/19 22:47:24编辑过]