实例：
求助的是：打开软件中的“党组”，“增加本月数据”，要求是：增加本月数据时，如果 表中已按年度、月份生成的数据不再添加，如果没有，则添加，表中的年度、月份是按电脑的显示时间，现在是：只要点击“增加本月数据”按钮，不管本月生成没有生成，它都增加，要求，一个月只增加一次数据。如何改写代码，请指导，谢谢。
代码如下：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
加好友 
发短信
Post By：2020/10/28 10:25:00 [只看该作者]
