共6 条记录, 每页显示 10 条, 页签: [1]

[浏览完整版]

标题：代码问题！版主帮忙看看，谢谢

1楼

杨浩发表于：2009/8/6 16:59:00

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

Else

MessageBox.Show("请认真核对你录入的单位名称和单位性质!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

2楼

杨浩发表于：2009/8/6 17:09:00

我看了几遍都觉得没有问题！！但就是不对，谢谢

3楼

杨浩发表于：2009/8/6 17:16:00

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

Else

MessageBox.Show("请认真核对你录入的单位名称和单位性质!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

4楼

杨浩发表于：2009/8/6 17:16:00

这样改了也没达到我要的效果！！！

5楼

杨浩发表于：2009/8/6 17:18:00

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

Else

MessageBox.Show("请认真核对你录入的单位名称和单位性质!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

6楼

杨浩发表于：2009/8/6 17:18:00

这样达到效果了

共6 条记录, 每页显示 10 条, 页签: [1]