主题：自定义录入问题

在 CellButtonClick 事件，这样写

vars("当前表") = e.Table

然后在窗口doubleClick事件，这样写

Dim tbl As Table = e.Table
If tbl.Current IsNot Nothing Then
    vars("当前表").Current("客户ID") = tbl.Current("客户ID")
End If
e.Form.Close()