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

版主帮帮忙

版主帮帮忙

帮帮忙，谢谢

帮帮忙，谢谢

版主帮帮忙

 

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 T As Row = Forms("职务变动人员基础资料查询转移").Controls("人员姓名").text

        Dim Tr As DataRow = DataTables("职务变动基础信息").Find("[姓名] = '" & T("姓名") & "'")

        if Tr IsNot Nothing then

            Dim r1 As Row = tables("职务变动基础信息").Rows.AddNew()

            r1("序号") = r("序号")

            r1("单位名称") = r("单位名称")

            r1("姓名") = r("姓名")

            r1("身份证号") = r("身份证号")

            r1("性别") = r("性别")

            r1("出生日期") = r("出生时间")

            r1("参加工作时间") = r("参加工作时间")

            r1("变动前职务") = r("职务")

else

if MessageBox.Show("在调资基础资料数据库中不存在此人的信息!!!是否要在职务变动人员基础资料数据库中增加该人？", "提示", MessageBoxButtons.YESNO,MessageBoxIcon. Question) = DialogResult.Yes then

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

Else

'Return       '终止代码的执行

End if

End if

End if

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

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

    end if

end if

这样改代码没有实现，版主帮帮忙

谢谢

就是这个效果！！！谢谢

 

Dim Val As string

Val= e.Form.Controls("人员姓名").Value

Dim Tr As DataRow

Tr = DataTables("职务变动基础信息").Find("姓名= '" & val & "'")

Dim BBB As string
BBB= Forms("职务变动人员基础资料查询转移").Controls("人员姓名").text
if BBB="" Then
    MessageBox.Show("请在【职务变动人员姓名】录入框中录入“变动人员姓名”!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
    'Return       '终止代码的执行
ELSE

if Val > "" AndAlso DataTables("职务变动基础信息").Select("[姓名] = '" & val & "'").Count > 0  then

MessageBox.Show("在职务变动基础信息表中已有该人员的基础信息,不需要你重新录入!!!","提示",MessageBoxButtons.OK,MessageBoxIcon. Information)

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

If Val IsNot Nothing Then

                Dim wz As long = Tables("职务变动基础信息").FindRow(Tr)

                If wz >= 0 Then

                    Tables("职务变动基础信息").Position = wz

                End If

            End If

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

   'Return       '终止代码的执行

else 

    if Tables("职务变动人员基础资料查询转移_Table1").position > = 0 then
        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
    else
        if Messagebox.Show("数据库中不存在此人! 是否新增该人员?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.yes
            Dim r As Row = tables("职务变动基础信息").Rows.AddNew()
            r("姓名")  = BBB
            forms("职务变动人员基础信息录入").open()
            Forms("职务变动人员基础资料查询转移").Close()
        else
        end if
    end if
end if

END IF