Dim BBB As string BBB= Forms("职务变动人员基础资料查询转移").Controls("人员姓名").text if BBB="" Then MessageBox.Show("请在<职务变动人员姓名>录入框中录入 变动人员 姓名!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information) '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
|