[求助]复选框勾选行写入表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]复选框勾选行写入表

共有1527人关注过本帖树形打印复制链接主题：[求助]复选框勾选行写入表

天一生水

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1137 积分：11224 威望：0 精华：0 注册：2017/9/26 16:30:00

[求助]复选框勾选行写入表 发帖心情

Post By：2018/1/19 22:39:00 [只看该作者]

我想把窗口表 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编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/1/19 23:17:00 [只看该作者]

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

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 = "机关名称"

下一主题 >> << 上一主题

主题：[求助]复选框勾选行写入表