主题：多行多例同时增加到表

我想打开新增部门时，新增部门窗的表只显示对应公司的内容，按确定后将勾选的部门同时新增到GZ公司.GZ部门表，当找开新增人员窗口时只显示对应部门的人员，按确定将勾选的人员名单及对应（基本工资，公司社保....)等信息新增写到人员明细表

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:工资.foxdb

类似代码

 

For Each r As DataRow In Tables("新增部门_Table1").DataTable.Select("选择 = true")
    Dim nr As Row = Tables("GZ部门").AddNew
    nr("部门") = r("所属部门")
Next

这代码可以，能用，谢谢，那怎样才能让打开的新增空口只显示对应数据的信息呢，比如，我选GZ公司的公司A,打开新增部门的窗口时只显示所属公司列里是公司A的信息

 在AfterLoad事件，加入代码

 

Tables("新增部门_Table1").Filter = "部门 = '" & Tables("GZ公司").Current("部门") & "'"

能不能不显示部门的重复值呀，也就是说相同的名字只显示一个，还有，选择输入后我怎样才能让人员信息表选择列的数据为False

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)