- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]有条件的数据填充问题？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157764)
-- 发布时间：2020/10/28 10:25:00
-- [求助]有条件的数据填充问题？
实例：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:信阳市退役军人事务局四清单一报告系统a - 副本.zip |
求助的是：打开软件中的“党组”，“增加本月数据”，要求是：增加本月数据时，如果 表中已按年度、月份生成的数据不再添加，如果没有，则添加，表中的年度、月份是按电脑的显示时间，现在是：只要点击“增加本月数据”按钮，不管本月生成没有生成，它都增加，要求，一个月只增加一次数据。如何改写代码，请指导，谢谢。
代码如下：Dim d1 As Date = Date.Today
Dim month As Integer = d1.Month
Dim dt As DataTable = DataTables("党组织")
For Each dr As DataRow In dt.DataRows
If dr("月份") = month Then
Return
Else
Dim Result As DialogResult
Result = MessageBox.Show("是否确添加数据?" & vbCrLf & "如果已添加本月数据,请不要再添加!!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim f As New Filler
\'Dim d1 As Date = Date.Today
\'Dim month As Integer = d1.Month
f.SourceTable = DataTables("党组模板")
f.SourceCols = "序号,党组织A,党组织主体责任A_主要内容,党组织主体责任A_要求,三重一大,三重一大_类型,三重一大_要求" \'指定数据来源列
f.DataTable = DataTables("党组织") \'指定数据接收表
f.DataCols = "序号,党组织,党组织主体责任A_主要内容,党组织主体责任A_要求,三重一大,三重一大_类型,三重一大_要求" \'指定数据接收列
\'f.Filter = "月份 = month"
\'f.ExcludeExistValue = True
\'f.ExcludeNullValue=True
f.filter = Tables("党组织").filter \'按筛选结果复制
f.Fill() \'填充数据
Tables("党组织").DataTable.Save
Dim Filter As String
If Filter > "" Then
Tables("党组织").Filter = Filter
Tables("党组织").Sort = "序号,月份"
End If
Else
\'否,则执行
Return
End If
End If
\'Next
-- 发布时间：2020/10/28 10:36:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:四清单一报告系统.zip |
-- 发布时间：2020/10/28 10:59:00
--
有点蓝：文本过高，无法打开，请把代码发来吧，谢谢
-- 发布时间：2020/10/28 11:02:00
--
可以购买升级服务
-- 发布时间：2020/10/28 11:06:00
--
多少钱啊
-- 发布时间：2020/10/28 11:07:00
--
原来买的花了5000多，现在还有加密狗呢，全是本人花的钱，不是单位的
-- 发布时间：2020/10/28 11:08:00
--
有点蓝：先反代码发来，急用，谢谢
-- 发布时间：2020/10/28 11:23:00
--
Dim dr As DataRow = DataTables("党组织").Find("年度=" & Date.Today.Year & " and 月份=" & Date.Today.Month)
If dr IsNot Nothing Then
msgbox("本月数据已经添加,无需重复添加!")
Return
End If
Dim Result As DialogResult
Result = MessageBox.Show("是否确添加数据?" & vbCrLf & "如果已添加本月数据,请不要再添加!!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim f As New Filler
……
-- 发布时间：2020/10/28 11:38:00
--
谢谢