主题：如何让TABLE控件中查询到数据转移到，其他表中，谢谢！！！

1、在<职务变动基础信息>表的“职务变动人员基础资料查询转移”窗口中用TABLE控件制作了一个数据查询转移窗口，使用了复选框
达到目的：
已经实现了查询，如何实现双击查询到的某行数据<及复选框打上勾的行点击确定按钮>后，先在<职务变动基础信息>表中核对是否已有该行数据，如果没有数据就从<调资基础数据>表中转移到<职务变动基础信息>！！！
谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:rsgzglxt.rar

版主帮帮忙，谢谢

版主帮帮忙，谢谢

版主帮帮忙，谢谢

还是有点问题◎◎◎！！！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:rsgzglxt.rar

放在确定按钮中有些，不能数据转移！！！
还有就是双击后自动打开职务变动数据修改窗口后，显示的数据不指向，刚才转移的数据！！！

Dim r As Row = Tables("职务变动人员基础资料查询转移_Table1").current
Dim dr As DataRow = DataTables("职务变动基础信息").Find("[姓名] = '" & r("姓名") & "'")
if Tables("职务变动人员基础资料查询转移_Table1").current.Checked = True
    if dr IsNot Nothing then
    MessageBox.Show("变动基础信息中已有此人信息!!!", "提示",MessageBoxButtons.OK,MessageBoxIcon. Information)
If e.Table.name = "职务变动人员基础资料查询转移_Table1"
    Dim rr as Datarow = CurrentTable.Current.DataRow
    tables("职务变动基础信息").Position = tables("职务变动基础信息").FindRow(rr)
    Forms("职务变动人员基础信息录入").open()
    Forms("职务变动人员基础资料查询转移").Close()
end if
    else
        Dim r1 As Row = tables("职务变动基础信息").Rows.AddNew()
        r1("序号") = r("序号")
        r1("单位名称") = r("单位名称")
        r1("姓名") = r("姓名")
        r1("身份证号") = r("身份证号")
        r1("性别") = r("性别")
        r1("出生日期") = r("出生时间")
        r1("参加工作时间") = r("参加工作时间")
        r1("变动前职务") = r("职务")
    end if
    If e.Table.name = "职务变动人员基础资料查询转移_Table1"
    Dim rr as Datarow = CurrentTable.Current.DataRow
    tables("职务变动基础信息").Position = tables("职务变动基础信息").FindRow(rr)
    Forms("职务变动人员基础信息录入").open()
    Forms("职务变动人员基础资料查询转移").Close()
   End If
end if

版主帮忙看看，谢谢

不好意思