| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 代码问题！版主帮忙看看，谢谢 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3825) |
| -- 作者：杨浩 -- 发布时间：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 End If Else MessageBox.Show("请认真核对你录入的单位名称和单位性质!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information) End If |
| -- 作者：杨浩 -- 发布时间：2009/8/6 17:09:00 -- 我看了几遍都觉得没有问题！！但就是不对，谢谢 |
| -- 作者：杨浩 -- 发布时间：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 End If |
| -- 作者：杨浩 -- 发布时间：2009/8/6 17:16:00 -- 这样改了也没达到我要的效果！！！ |
| -- 作者：杨浩 -- 发布时间：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 End If
|
| -- 作者：杨浩 -- 发布时间：2009/8/6 17:18:00 -- 这样达到效果了 |