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

提示这个错误！！！版主帮忙看看！！！

Dim r As Row = Tables("职务变动人员基础资料查询转移_Table1").current.Checked
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

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

另外，在 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