| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]关于Select方法应用动态变量问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95504) |
| -- 作者：铜豆 -- 发布时间：2017/1/22 8:58:00 -- [求助]关于Select方法应用动态变量问题 Dim drs As List(Of DataRow) Dim dr As DataRow Dim nm As Byte Pt = DataTables("易途").GetValues("姓名","[日期] >= #1/1/2017#") Pt1 = DataTables("客服目标").GetValues("姓名","[日期] >= #1/1/2017#") For Each pts As String In pt If pt1.Contains(pts)= False Then drs = DataTables("易途").Select("[姓名] = \'" & pts & "\' And [日期]= #1/1/2017#") For Each drs1 As DataRow In drs dr = DataTables("订单组合1").AddNew dr("姓名")=drs1("姓名") dr("日期")=drs1("日期") Next End If Next 老师帮我看看有底纹和颜色为红色的代码有问题吗？怎么这段代码不会执行
|
| -- 作者：有点色 -- 发布时间：2017/1/22 10:28:00 -- 代码没问题，加入msgbox，看看弹出的值是否正确
msgbox(pts & " " & pt1.Count & " " & pt1.Contains(pts)) |
| -- 作者：铜豆 -- 发布时间：2017/1/22 12:25:00 -- 谢谢老师发现问题了，条件设置问题 [此贴子已经被作者于2017/1/22 12:27:39编辑过]
|