直接赋值即可,比如按钮代码
Dim nr As Row = Tables("CONTACT_DETAIL").AddNew()nr("CUST_NO") = Tables("CUSTOMER_lIST").current("CUST_NO")Forms("联系人详情").open