'Forms("党组1A").open()
MainTable = Tables("数据表")
Dim Result As DialogResult
Result = MessageBox.Show("是否确添加数据?" & vbCrLf & "注意复制的是模板中筛选过滤结果", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim f As New Filler
f.SourceTable = DataTables("数据模板")
f.SourceCols = "序号,党组织主体责任A_主要内容,党组织主体责任A_要求,党组织主体责任B_主要内容,三重一大_类型,三重一大_要求,个人主体责任A_主要内容,个人主体责任A_要求,个人主体责任B_主要内容,个人主体责任B_要求,个人工作部署A_工作类型,个人工作部署B_工作类型" '指定数据来源列
f.DataTable = DataTables("数据表") '指定数据接收表
f.DataCols = "序号,党组织主体责任A_主要内容,党组织主体责任A_要求,党组织主体责任B_主要内容,三重一大_类型,三重一大_要求,个人主体责任A_主要内容,个人主体责任A_要求,个人主体责任B_主要内容,个人主体责任B_要求,个人工作部署A_工作类型,个人工作部署B_工作类型" '指定数据接收列
f.filter = Tables("数据表").filter '按筛选结果复制
f.Fill() '填充数据
Tables("数据表").DataTable.Save
Dim Filter As String
'With e.Form.Controls("ComboBox1") '增加 筛选条件
'If .Value IsNot Nothing Then
'Filter = Filter & "[列名] like '%" & .Value & "%'"
'End If
'End With
'
'With e.Form.Controls("ComboBox3") ''增加 筛选条件
'If .Value IsNot Nothing Then
'If Filter >"" Then
'Filter = Filter & " And "
'End If
'Filter = Filter & "列名 = '" & .Value & "'"
'End If
'End With
If Filter > "" Then
Tables("数据表").Filter = Filter
Tables("数据表").Sort = "序号,月份"
End If
Else
'否,则执行
Return
End If
加好友 
发短信
Post By：2020/9/4 9:09:00 [显示全部帖子]
