主题：如何实现这种想法？谢谢

DataTables("审核").DataRows.Clear()
dim f As New Filler
f.SourceTable = DataTables("调资基础数据") '指定数据来源
f.DataTable = DataTables("审核") '指定数据接收表
f.ExcludeExistValue = true
f.ExcludeNullValue = true
f.Fill() '填充数据
For Each dr As DataRow In DataTables("审核").DataRows
     dr("审核")=""
    If dr("身份证号").Length <> 15 AndAlso dr("身份证号").Length <> 18 Then '判断是否不符合验证要求
        dr("审核")="录入身份证号位数错误!!!"
    End If
    If dr("性别")<> ReadSex(dr("身份证号")) Then
        dr("审核")= dr("审核") & Chr(13) & Chr(10) & "录入性别与身份证性别不符!!!"
    End If
    If dr("出生时间")<> ReadBirthDay(dr("身份证号")) Then
        dr("审核")= dr("审核") & Chr(13) & Chr(10) &"录入出生时间与身份证出生日期不符!!!"
    End If
    If dr("参加工作时间").Year-dr("出生时间").Year < 18
        dr("审核")= dr("审核") & Chr(13) & Chr(10)&"工作时间与出生日期之差,不能小于18年,请核实!!!"
    End If
Next
DataTables("审核").DeleteFor("[审核] Is Null ")
Dim frm As WinForm.Form
frm = Forms("查看错误提示")
frm.Open()

你想达到什么目的?

已经实现了，有些录入单位后点击退出！！！
 

Dim A As  String

A = e.Form.Controls("单位名称").Value

Dim B As  String

B = e.Form.Controls("姓名").Value

Dim C As  String

C = e.Form.Controls("身份证号").Value

Dim D As  String

D = e.Form.Controls("性别").Value

Dim FF As  String

FF = e.Form.Controls("ComboBox1").Value

if A = "" then   

if MessageBox.Show("你未录入单位名称,你是否要退出本录入窗口?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes then

DataTables("人事工资管理").DeleteFor("[单位名称] Is Null ")

For Each dt As DataTable In DataTables

    dt.Save()

Next

Forms("数据录入窗口").Close()

Return       '终止代码的执行

Else

if A = "" then   

 MessageBox.Show("请你重新录入单位名称!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行

END IF

END IF

Else

if A = "" then   

 MessageBox.Show("请你重新录入单位名称!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行

Else

if B = "" then   

 MessageBox.Show("人员姓名不能为空,请录入人员姓名以后再退出!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行

Else

if C = "" then   

 MessageBox.Show("人员身份证号不能为空,请录入人员身份证号以后再退出!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行

Else

If  e.Form.Controls("出生日期").Value Is Nothing  then

 MessageBox.Show("人员出生日期不能为空,请录入人员出生日期以后再退出!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行

Else

if D = "" then   

 MessageBox.Show("人员性别不能为空,请录入人员性别以后再退出!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行

Else

If  e.Form.Controls("参加工作时间").Value Is Nothing  then

 MessageBox.Show("人员参加工作时间不能为空,请录入人员参加工作时间以后再退出!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行

Else

if FF = "" then   

 MessageBox.Show("人员现任职务不能为空,请录入人员现任职务以后再退出!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行

Else

For Each dt As DataTable In DataTables

    dt.Save()

Next

Forms("数据录入窗口").Close()

End If

END IF

END IF

End if

End if

End if

End if

End if

Dim A,B,C,D,FF As  String
A = e.Form.Controls("单位名称").Value
B = e.Form.Controls("姓名").Value
C = e.Form.Controls("身份证号").Value
D = e.Form.Controls("性别").Value
FF = e.Form.Controls("ComboBox1").Value
if A = "" then
    if MessageBox.Show("你未录入单位名称,你是否要退出本录入窗口?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes then
        DataTables("人事工资管理").DeleteFor("[单位名称] Is Null ")
        For Each dt As DataTable In DataTables
            dt.Save()
        Next
        Forms("数据录入窗口").Close()
        Return       '终止代码的执行
    Else
      MessageBox.Show("请你重新录入单位名称!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Return       '终止代码的执行
End if
End if
   if B = "" then
                MessageBox.Show("人员姓名不能为空,请录入人员姓名以后再退出!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
                Return       '终止代码的执行
End if
   if C = "" then
                    MessageBox.Show("人员身份证号不能为空,请录入人员身份证号以后再退出!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
                    Return       '终止代码的执行
End if
      If  e.Form.Controls("出生日期").Value Is Nothing  then
                        MessageBox.Show("人员出生日期不能为空,请录入人员出生日期以后再退出!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
                        Return       '终止代码的执行
 End if
         if D = "" then
                            MessageBox.Show("人员性别不能为空,请录入人员性别以后再退出!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
                            Return       '终止代码的
 End if
       If  e.Form.Controls("参加工作时间").Value Is Nothing  then
                                MessageBox.Show("人员参加工作时间不能为空,请录入人员参加工作时间以后再退出!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
                                Return       '终止代码的执行
  End if
         if FF = "" then
                                    MessageBox.Show("人员现任职务不能为空,请录入人员现任职务以后再退出!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
                                    Return       '终止代码的执行
       End if
                                    For Each dt As DataTable In DataTables
                                        dt.Save()
                                    Next
                                    Forms("数据录入窗口").Close()

 

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

点击浏览该文件:doc2.rar

这是啥意思不懂？

做什么操作时的提示?

加一段：
if A <> "" andalso B<> "" andalso C<> "" andalso D<> "" andalso FF<> "" then    
   Forms("数据录入窗口").Close()
end if

dim f As New Filler  f.SourceTable = DataTables("调资基础数据") '指定数据来源 f.SourceCols = "序号,单位名称,姓名,身份证号,性别,出生时间,参加工作时间" '指定数据来源列 f.DataTable = DataTables("审核") '指定数据接收表 f.DataCols = "序号,单位名称,姓名,身份证号,性别,出生时间,参加工作时间," '指定数据接收列 f.ExcludeExistValue = "true" f.ExcludeNullValue = "true" f.Fill() '填充数据 红底的地方多了一个“,“