- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 多行多例同时增加到表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65392)
-- 发布时间：2015/3/15 11:05:00
-- 多行多例同时增加到表
我想打开新增部门时，新增部门窗的表只显示对应公司的内容，按确定后将勾选的部门同时新增到GZ公司.GZ部门表，当找开新增人员窗口时只显示对应部门的人员，按确定将勾选的人员名单及对应（基本工资，公司社保....)等信息新增写到人员明细表
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:工资.foxdb |
-- 发布时间：2015/3/15 11:15:00
--
类似代码
For Each r As DataRow In Tables("新增部门_Table1").DataTable.Select("选择 = true")
Dim nr As Row = Tables("GZ部门").AddNew
nr("部门") = r("所属部门")
Next
-- 发布时间：2015/3/15 11:58:00
--
这代码可以，能用，谢谢，那怎样才能让打开的新增空口只显示对应数据的信息呢，比如，我选GZ公司的公司A,打开新增部门的窗口时只显示所属公司列里是公司A的信息
-- 发布时间：2015/3/15 12:01:00
--
在AfterLoad事件，加入代码
Tables("新增部门_Table1").Filter = "部门 = \'" & Tables("GZ公司").Current("部门") & "\'"
-- 发布时间：2015/3/15 12:17:00
--
能不能不显示部门的重复值呀，也就是说相同的名字只显示一个，还有，选择输入后我怎样才能让人员信息表选择列的数据为False
-- 发布时间：2015/3/15 14:15:00
--
1、去掉重复值，可以这样
Dim t As Table = Tables("表A")
Dim c As Col = t.Cols("第二列")
t.Select(-1,c.Index)
Syscmd.Filter.HideSameValues()
2、去掉选择列的勾选，参考
Dim t As Table = Tables("表A")
t.DataTable.ReplaceFor("选择", False)