- 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=117762)
-- 发布时间：2018/4/18 18:31:00
-- 不会描述，直接做个例子吧
有这样一个窗口1：页面集合中有7个页面7个表（表1，表2，3，4，5，6，7），表中有几个列名相同的列：第一列、第二列、第三列、添加维保记录，点击“添加维保记录‘时打开窗口2，窗口2中的表A要筛选出当前表（1或2，3，4，5，6，7）当前行中与第一列、第二列、第三列内容相同的行，点击”新增一行“时，表A新增一行，并复制窗口1中当前表当前行第一列、第二列、第三列、第四列的内容。
求窗口2 afterload的代码，按钮”新增一行“的代码。
谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2018/4/18 18:41:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2018/4/18 20:26:00
--
老师，报错了，两段代码都报错：
此主题相关图片如下：qq截图20180418201946.jpg
此主题相关图片如下：qq截图20180418202024.jpg
Dim r As Row = vars("表").current，还用设置全局变量吗？
窗口1中有七个页签七个表，每个表中都有”添加维保记录“这一列，点击该列都能打开窗口2
afterload:
Dim r As Row = vars("表").current
Dim t As Table = e.Form.controls("新增安全设施维保记录_table1").Table
t.filter = "企业名称 = \'" & r("企业名称") & " \' and 设施名称 like \'*" & r("设施名称") & "*\' And 设施编号 like \'*"& r("设施编号") & " * \'"
With Tables("新增安全设施维保记录_table1")
.Position = .Rows.Count - 1
End With
新增一行：
Dim r As Row = vars("表").current
Dim t As Table = e.Form.controls("新增安全设施维保记录_table1").Table
Dim nr As Row = t.addnew
nr("企业名称") = r("企业名称")
nr("设施类别") = r("设施类别")
nr("设施名称") = r("设施名称")
nr("规格型号") = r("规格型号")
nr("设施编号") = r("设施编号")
nr("使用部门") = r("使用部门")
nr("使用位置") = r("使用位置")
[此贴子已经被作者于2018/4/18 20:28:43编辑过]
-- 发布时间：2018/4/18 20:29:00
--
你用例子是否正常？去看看 CellButtonClick 事件的代码。
-- 发布时间：2018/4/18 20:30:00
--
我看到了
-- 发布时间：2018/4/18 20:32:00
--
以下是引用deliangzhaoe在2018/4/18 20:30:00的发言：
我看到了
我看到了
如果还有问题，上传具体实例测试。