如何让TABLE控件中查询到数据转移到，其他表中，谢谢！！！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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