实例:
求助的是:打开软件中的“党组”,“增加本月数据”,要求是:增加本月数据时,如果 表中已按年度、月份生成的数据不再添加,如果没有,则添加,表中的年度、月份是按电脑的显示时间,现在是:只要点击“增加本月数据”按钮,不管本月生成没有生成,它都增加,要求,一个月只增加一次数据。如何改写代码,请指导,谢谢。
代码如下: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