[求助]关于Select方法应用动态变量问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有1886人关注过本帖树形打印复制链接主题：[求助]关于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("日期")

End If

老师帮我看看有底纹和颜色为红色的代码有问题吗？怎么这段代码不会执行

有点色

小大 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编辑过]

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