新增按钮中加上:
Dim r As Row = Tables("CZRZ").addnew()
r("czrz") = "新增客户档案(" & user.name & ")"
``````
`````````