| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 求助 合并数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145583) |
| -- 作者：jackyfashion -- 发布时间：2020/1/31 22:28:00 -- 求助 合并数据 老师: 新年快乐! 身体健康! 生意兴隆! 万事如意! Di m cm d As New SQ LC om ma nd Di m d As Da taTa ble cm d.Co n ne c tio nN a me = "ttvt" cm d.Co m m an dT ext = "Se le ct * Fr o m {表A} Wh ere 日期 BET WE EN #2020-01-01# And #2020-01-31#" dt = cm d.E xe cute Reader() Fo r Ea ch dr1 As Da taR ow In d t.dat aR ows Dim dr2 As Da ta R ow = Dat aTa bles("表B").sql fi nd("纸样师 = \'" & user.Name & "\' and 订单ID = \'" & dr1("订单ID") & "\'") If dr 2 I s N othi ng Then dr2 = D ataTab les("表B").Add New() End If For Eac h dc As Dat a Col In Dat aTa bles("表A").Dat aCols dr2(dc.Na me) = dr1(dc.na me) Next next 检查日期代码有问题, 纸样师无法筛选,全部出现 请老师帮忙改下代码! 谢谢老师! 谢谢!!! [此贴子已经被作者于2020/1/31 22:34:13编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/1/31 22:37:00 -- 加一个保存代码即可 …… For Eac h dc As Dat a Col In Dat aTa bles("表A").Dat aCols dr2(dc.Na me) = dr1(dc.na me) Next dr2.save next |
| -- 作者：jackyfashion -- 发布时间：2020/1/31 23:07:00 -- 谢谢老师!!! 谢谢!!!
|