老师，报错了，两段代码都报错：
Dim r As Row = vars("表").current，还用设置全局变量吗？
窗口1中有七个页签七个表，每个表中都有”添加维保记录“这一列，点击该列都能打开窗口2
afterload:
Dim r As Row = vars("表").currentDim 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编辑过]
加好友 
发短信
Post By：2018/4/18 18:31:00 [只看该作者]
此主题相关图片如下：qq截图20180418201946.jpg
