| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 按钮事件代码编写咨询 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95614) |
| -- 作者：zchlln -- 发布时间：2017/1/25 15:36:00 -- 按钮事件代码编写咨询 按钮事件中： 如果临时表的a列数据在表A的a列中存在，那么更新所对应临时表bcd列的数据到表A的bcd中，如果不存在，那么在表A中新增数据并更新对应临时表的bcd数据。应如何编写？
[此贴子已经被作者于2017/1/25 15:43:31编辑过]
|
| -- 作者：zyz95125 -- 发布时间：2017/1/25 15:50:00 -- 走开 |
| -- 作者：有点蓝 -- 发布时间：2017/1/25 15:53:00 -- 参考：http://www.foxtable.com/webhelp/scr/1451.htm |
| -- 作者：zchlln -- 发布时间：2017/1/25 15:55:00 -- 我这面是想把数据先复制粘贴到临时表里面 然后再点更新按钮 进行更新 这个参考是直接修改单元格触发的啊 还有如果值为空的话 那么我不想让他进行更新 [此贴子已经被作者于2017/1/25 15:59:38编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2017/1/25 16:34:00 -- 类似 Dim dr As DataRow For Each r As Row In Tables("临时表").Rows dr = DataTables("表A").Find("[产品编号] = \'" & r("产品编号") & "\'") If dr Is Nothing dr = DataTables("表A").AddNew dr("产品编号") = r("产品编号") End If dr("品名") = r("品名") dr("型号") = r("型号") dr("规格") = r("规格") dr("单价") = r("单价") Next |