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

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

1、我在<职务变动人员基础资料查询转移>窗口中的『人员姓名』框中输入“关”字，显示出所有姓关的人员信息；
2、勾选一个在（职务变动基础信息）表已有的人员（比如：关小羽）；
3、弹出<职务变动人员基础信息录入>窗口，这时显示的仍然是（职务变动基础信息）表第一行的人员信息；
要达到的目的是：勾选一个在（职务变动基础信息）表已有的人员（比如：关小羽），弹出的<职务变动人员基础信息录入>窗口就显示（职务变动基础信息）表中这个人的信息（比如：关小羽）！！！
谢谢

按钮 或 双击事件中或需要的地方：：：：
在 ： 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("职务变动基础信息")中就可以定位到，窗口选择的行相同的姓名了。。。 试一试吧。

在确定按钮中加入如下代码： 

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)

  For i As integer = 0 To DataTables("职务变动基础信息").DataRows.Count - 1

     if Tables("职务变动基础信息")(i,"姓名") = r("姓名")

        Tables("职务变动基础信息").position = i

      end if

   next

Forms("职务变动人员基础信息录入").open()

        Forms("职务变动人员基础资料查询转移").Close()

'Return       '终止代码的执行

        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

在<职务变动人员基础资料查询转移>窗口中的『人员姓名』框中输入“曹”字（也就是输入调资基础数据表中没有姓名的）后，提示如下错误！！！

此主题相关图片如下：1.jpg

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

点击浏览该文件:rsgzglxt.rar

想在这实现：
在<职务变动人员基础资料查询转移>窗口中的『人员姓名』框中输入“曹”字（也就是输入调资基础数据表中没有姓名的）后，点击确定后提示：在数据库中不存在该人姓名，是否要在职务变动基础信息中新增该人员！！！是、否
点击“是”就打开弹出<职务变动人员基础信息录入>窗口，姓名为刚才输入的姓名！！！（比如：曹）

谢谢

帮帮忙，谢谢

帮帮忙，谢谢