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

数据填充你可以参照你调资表中的填充代码啊，你不会举一反三？

    
     一行 ： dr("审核")=""   
     胜我五四行：
    else
        dr("审核")="..."

    if dr("审核").Contains("...") then
        dr("审核")= dr("审核").Replace("...","")
    end if   

以下是引用杨浩在2009-8-11 17:49:00的发言： 数据实现自动填充！！！？？？？

楼主的问题真精简啊～       不知从何下手了

dim f As New Filler
 f.SourceTable = DataTables("调资基础数据") '指定数据来源
f.SourceCols = "序号,单位名称,姓名,身份证号,性别,出生时间,参加工作时间" '指定数据来源列
f.DataTable = DataTables("审核") '指定数据接收表
f.DataCols = "序号,单位名称,姓名,身份证号,性别,出生时间,参加工作时间," '指定数据接收列
f.ExcludeExistValue = "true"
f.ExcludeNullValue = "true"
f.Fill() '填充数据
For Each dr As DataRow In DataTables("审核").DataRows
    If dr("身份证号").Length <> 15 AndAlso dr("身份证号").Length <> 18 Then
        dr("审核")="录入身份证号位数错误!!!"
    else
        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
    if dr("审核").Contains("...") then
        dr("审核")= dr("审核").Replace("...","")
    end if   
Next
DataTables("审核").DeleteFor("[审核] Is Null ")
Dim frm As WinForm.Form
frm = Forms("查看错误提示")
frm.Open()

代码运行有问题！！！帮帮

文件呢?只上传TABLE文件就行,不要压缩

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

点击浏览该文件:人事工资管理系统.table

还有就是人事工资管理表的数据录入窗口的退出按钮有问题！！！版主帮帮忙看看，谢谢

   

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       '终止代码的执行

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

End if

 

当已经录入单位名称后，点退出按钮不执行以下的代码！！