Foxtable(狐表)用户栏目专家坐堂 → [求助]关于Select方法应用动态变量问题


  共有1262人关注过本帖树形打印复制链接

主题:[求助]关于Select方法应用动态变量问题

帅哥哟,离线,有人找我吗?
铜豆
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:78 积分:589 威望:0 精华:0 注册:2016/12/15 18:05:00
[求助]关于Select方法应用动态变量问题  发帖心情 Post By:2017/1/22 8:58:00 [只看该作者]

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
老师帮我看看有底纹和颜色为红色的代码有问题吗?怎么这段代码不会执行

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/22 10:28:00 [只看该作者]

 代码没问题,加入msgbox,看看弹出的值是否正确

 

msgbox(pts & " " & pt1.Count & " " & pt1.Contains(pts))


 回到顶部
帅哥哟,离线,有人找我吗?
铜豆
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:78 积分:589 威望:0 精华:0 注册:2016/12/15 18:05:00
  发帖心情 Post By:2017/1/22 12:25:00 [只看该作者]

谢谢老师发现问题了,条件设置问题
[此贴子已经被作者于2017/1/22 12:27:39编辑过]

 回到顶部