| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 窗口中副本表不显示新增的行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117971) |
| -- 作者：deliangzhaoe -- 发布时间：2018/4/22 10:50:00 -- 窗口中副本表不显示新增的行 窗口A中页面集合七个页面中各有一个表，表中有一共同列“添加维保记录”，点击列打开设计好的窗口B“新增安全设施维保记录“，窗口B中有按钮”新增一行“，设置了如下代码： Dim r As Row = vars("安全设施").current Dim a As Table = e.Form.controls("table1").Table Dim nr As Row = a.addnew nr("企业名称") = r("企业名称") nr("设施类别") = r("设施类别") nr("设施名称") = r("设施名称") nr("规格型号") = r("规格型号") nr("设施编号") = r("设施编号") nr("使用部门") = r("使用部门") nr("使用位置") = r("使用位置") 七个页面中，窗口B打开后点击新增一行时，只有一个页面不显示新增的行 ，其他 六个均显示，这是怎么回事？ 窗口B中表table1是副本表，打开正本表查看时，实际已新增了一行。
|
| -- 作者：有点甜 -- 发布时间：2018/4/22 22:34:00 -- 副本表，你设置了筛选，如果你新增的行不满足你设置的筛选条件，自然不会显示。 |
| -- 作者：deliangzhaoe -- 发布时间：2018/4/23 8:05:00 -- 窗口B的afterload设置了代码： Dim r As Row = vars("安全设施").current Dim a As Table = e.Form.controls("table1").Table a.filter = "企业名称 = \'" & r("企业名称") & " \' and 设施名称 like \'*" & r("设施名称") & "*\' And 设施编号 like \'*"& r("设施编号") & "*\'" a.Position = a.Rows.Count - 1 新增的一行均自动复制了企业名称、设施名称、设施编号这些列，是符合筛选条件的 只有这一个页面集合中的表新增一行时不显示，其他都显示
[此贴子已经被作者于2018/4/23 8:06:05编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/4/23 9:28:00 -- 试试改成
Dim r As Row = vars("安全设施").current
Dim a As Table = e.Form.controls("table1").Table
a.filter = "企业名称 = \'" & r("企业名称") & "\' and 设施名称 like \'*" & r("设施名称") & "*\' And 设施编号 like \'*"& r("设施编号") & "*\'"
a.Position = a.Rows.Count - 1
|