用 表A 的 列名，做成了 表B 的 第三列（暂定为 [表B列C]）。
在 表A 点击单元格按钮，用 表A 的 e.Col.Name 和 表B 的 第三列单元格值相比较，
如果相符，则打开 Forms("窗口1")，并上传 表B 同一行的“参数N”。
在 表A 的 CellButtonClick 事件中，设置如下代码。
运行出错，说是包含未定义函数r（）。
为什么呢？ 怎么改呢？
e.Cancel = True '取消 单元格 默认动作
For i As Integer = 0 To Tables("表B").Rows.Count - 1
Dim r As Row = Tables("表B").Rows(i)
If r(2) = e.Col.Name Then ’和 表A 的列名相比较
Dim dr As DataRow = DataTables("表B").Find("[表B列C] = r(2) ")
Vars("上传参数") = dr("参数N")
messageBox.show( Vars("参数N") )
Forms("窗口1").Open()
End If
Next
此主题相关图片如下：行筛选的表达式变量表述的有问题吗？.png
[此贴子已经被作者于2019/11/7 19:24:04编辑过]
加好友 
发短信
Post By：2019/11/7 18:33:00 [显示全部帖子]
