老师:新年快乐!
身体健康!
生意兴隆!
万事如意!
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编辑过]
加好友 
发短信
Post By：2020/1/31 22:28:00 [只看该作者]
