Dim Val As string
Val= e.Form.Controls("单位名称").Value
if Val = "" then
MessageBox.Show("你未选择需要读入数据的单位!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Return '终止代码的执行
Else
if Val > "" AndAlso DataTables("单位基本信息录入").Select("[单位名称] = '" & val & "'").Count > 0 then
if Val > "" AndAlso DataTables("调资基础数据").Select("[单位名称] = '" & val & "'").Count > 0 then
MessageBox.Show("已存在相同单位记录,是否删除?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
Forms("删除指定单位数据").Open()
Else
dim f As New Filler
f.SourceTable = DataTables("人事工资管理") '指定数据来源
f.SourceCols = "序号,单位名称,姓名,身份证号,性别,出生时间,参加工作时间,职务" '指定数据来源列
f.DataTable = DataTables("调资基础数据") '指定数据接收表
f.DataCols = "序号,单位名称,姓名,身份证号,性别,出生时间,参加工作时间,职务" '指定数据接收列
f.ExcludeExistValue = "true"
f.ExcludeNullValue = "true"
With e.Form.Controls("单位名称")
If .Value IsNot Nothing Then
f.Filter= "[单位名称]= '" & .Value & "'"
Else
End If
End With
f.Fill() '填充数据
MessageBox.Show("原始数据已经读入完成!!!", "提示")
End If
End If
Else
MessageBox.Show("请认真核对你录入的单位名称和单位性质!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
加好友 
发短信
Post By：2009/8/6 16:59:00 [只看该作者]
