- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何自动复制行内容到新表中？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=154120)
-- 发布时间：2020/9/4 8:15:00
-- [求助]如何自动复制行内容到新表中？
如下边软件：在“数据模板”表中的datacolchanged中设置了自动复制行的代码，当“选择”列中选中后，会自动将内容复制到新表中，现在“党组1A”窗口中，设置一个按钮（增加本月数据），点击这个按钮，就会自动把“数据模板”表中的数据自动复制到“数据表”中，如何设置按钮的代码，请指导，谢谢
附：软件
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:信阳市退役军人事务局四清单一报告系统.zip |
-- 发布时间：2020/9/4 9:09:00
--
添加本月数据按钮里面，代码如下，仅作参考：
\'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
-- 发布时间：2020/9/6 7:52:00
--
谢谢，非常好用，但又出现一个问题，如下软件：封面中有四个按钮（党组、支部、班子成员处级干部、科级干部），想作的是当点开“党组按钮”，点击“增加本月数据”时，只在党组窗口的表中加载数据，而“支部、班子成员处级干部、科级干部中不加载数据”，依次类推，当点开“支部”按钮时，点击“增加本月数据”时，只在支部窗口的表中加载数据，而“党组、班子成员处级干部、科级干部中不加载数据”，如何才能做到，现在是当在党组窗口中，加载数据时，其他几个窗口也加载了，不便于独立在各表中编辑数据。谢谢
软件上传：
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:信阳市退役军人事务局四清单一报告系统.zip |
-- 发布时间：2020/9/6 18:39:00
--
我看得不是很明白，
对于希望想要实现显示自己的数据，可以用很多方法来实现，将帮助文件再理一理。
1.用视图，可以显示自己想要的列：
Tables("订单").OpenView("视图一")
或者窗口的table控件属性里面，你都会设置显示列了。
2.用按条件加载或FILTER，你自己窗口都写了：
Tables("数据表").Filter = ""，
在窗口启动后，按条件加载数据（看帮助文件），
或者过滤条件改为你自己要的，如 [党组织]= ，主要考虑组织名称固定否，
不然得改造封面，
如封面一个窗口（直接1个组合框，加一个跳转窗口按钮）
再加一个数据表独立或模式窗口或norml或sqltable都可以，
概括就是用2个窗口，就直接实现你里面5个窗口的功能了，没必要搞5个，在窗口加载后，对相应控件进行显示或权限控制，就可以实现一个窗口实现，多个功能一致的窗口。当然，具体要求具体分析。