主题：自定义录入界面问题

代码改一下

If e.Col.Name = "材料编码" Then
    e.Cancel = True
    vars("点击的表") = e.Table.Name
    Forms("Material").Open()
End If

doubleClick事件

Dim tbl As Table = Tables("Material_Table1")
If tbl.Current IsNot Nothing Then
   Tables(vars("点击的表")).Current("材料编码") = tbl.Current("材料编码")
End If
Forms("Material").Close()