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

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("变动基础信息中已经有此人了!", "提示")
    else
        Dim r1 As Row = tables("职务变动基础信息").Rows.AddNew()
        r1("单位名称") = r("单位名称")
        r1("姓名") = r("姓名")
        r1("身份证号") = r("身份证号")
        r1("性别") = r("性别")
        r1("出生日期") = r("出生时间")
        r1("参加工作时间") = r("参加工作时间")
        r1("变动前职务") = r("职务")
    end if
end if

测试有点问题  重新修改了上面代码～

放在 Tables("职务变动人员基础资料查询转移_Table1") 的双击事件中试试？

另外，麻烦您下次窗口不要搞这么大好吗？我的电脑屏幕小啊～～～    拜托啦   
 

Dim BBB As string
BBB= Forms("职务变动人员基础资料查询转移").Controls("人员姓名").text
if BBB="" Then
    MessageBox.Show("请在<职务变动人员姓名>录入框中录入 变动人员 姓名!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
    'Return       '终止代码的执行
ELSE
    if Tables("职务变动人员基础资料查询转移_Table1").current.Checked = false
        MessageBox.Show("请构选!!! ","提示")
    else
        Dim r As Row = Tables("职务变动人员基础资料查询转移_Table1").current
        Dim dr As DataRow = DataTables("职务变动基础信息").Find("[姓名] = '" & r("姓名") & "'")
        if dr IsNot Nothing then
            MessageBox.Show("变动基础信息中已有此人信息!!!", "提示",MessageBoxButtons.OK,MessageBoxIcon. Information)
        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
        Forms("职务变动人员基础信息录入").open()
        Forms("职务变动人员基础资料查询转移").Close()
    end if
end if

以后别老叫版主啊～   版主不在时就没人敢回你帖子了～   呵呵

另外，在 aftercheckrow 事件中加上：（单选时有效）
dim n as integer = -1
for i as integer = 0 to Tables("职务变动人员基础资料查询转移_Table1").count-1
    if Tables("职务变动人员基础资料查询转移_Table1").rows(i).Checked then
       if  i<> n then
         n = i
       end if
        Tables("职务变动人员基础资料查询转移_Table1").position = n
    end if
next

aftercheckrow

20楼看过了？  试一试嘛 也不说清楚是窗口Table中的行，还是 表 中的行？？？？

你没有用19楼代码`````  放在按钮中可以的.  另外,查询后,只对一个打勾的单项进行操作有效. 因为每次单项操作,都会在表中增加一行,自动填入数据,焦点就是在这新增行中的.   跳出来的窗口就是该行的数据啊..

你的问题一点不详细,都是让人猜测.....   
问题要分出 1 2 3 4 5。。。来，写清步骤，错误在哪？ 想要要什么样的结果，等等。。。。。

按钮 或 双击事件中或需要的地方：：：：
在 ： Dim r As Row = Tables("职务变动人员基础资料查询转移_Table1").current 下面，加入
For i As integer = 0 To DataTables("职务变动基础信息").DataRows.Count - 1
  if Tables("职务变动基础信息")(i,"姓名") = r("姓名")
        Tables("职务变动基础信息").position = i
    end if
next
在 Tables("职务变动基础信息")中就可以定位到，窗口选择的行相同的姓名了。。。 试一试吧。