| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 新增并赋值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90520) |
| -- 作者：dengzhihao -- 发布时间：2016/9/14 22:12:00 -- 新增并赋值 通过 新增按钮 将新增一行，并将当前行 “客户名称” 赋值到新增行 “客户名称” 中。 求案例，或求解！
|
| -- 作者：有点蓝 -- 发布时间：2016/9/14 22:31:00 -- Dim dr As Row = Tables("表A").Current Dim d2 As Row = Tables("表A").AddNew If dr IsNot Nothing Then d2("客户名称") = dr("客户名称") End If
|
| -- 作者：dengzhihao -- 发布时间：2016/9/14 22:37:00 -- 谢谢蓝老师！ |