cellButtonClick事件
If e.Col.Name = "材料编码" Then
e.Cancel = True
vars("点击的表") = e.Table
Forms("Material").Open()
End If
doubleClick事件
Dim tbl As Table = Tables("Material_Table1")
If tbl.Current IsNot Nothing Then
vars("点击的表").Current("材料编码") = tbl.Current("材料编码")
End If
Forms("Material").Close()