拼接语句 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 拼接语句

共有1559人关注过本帖树形打印复制链接主题：拼接语句

huhu

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

拼接语句

Post By：2016/9/18 16:09:00 [只看该作者]

请问红色的代码怎么改？

Select Case user.Group

Case "录入","审核","协议一组","协议二组","交换组","R驱动组","S驱动组","EPON组","ONU组","网管组","网络组","路由组","PTN应用组","链路组","测试epon","测试switch","测试router"

If kh.text = "" Then

DataTables("临时版本跟踪表").LoadFilter = "需求提交时间 > '" & startdate.Value & "' And 需求提交时间 < '" & enddate.value.AddDays(1) & "' & "and DataTables("临时版本跟踪表").LoadFilter""

Else

DataTables("临时版本跟踪表").LoadFilter = "需求提交时间 > '" & startdate.Value & "' And 需求提交时间 < '" & enddate.value.AddDays(1) & "' & "and DataTables("临时版本跟踪表").LoadFilter" & " And 客户 = '" & kh.text & "'"

End If

End Select

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107754 积分：548109 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/9/18 16:20:00 [只看该作者]

Select Case user.Group

Dim filter = DataTables("临时版本跟踪表").LoadFilter

If filter > "" Then filter &= " and "

If kh.text = "" Then

DataTables("临时版本跟踪表").LoadFilter = filter & "需求提交时间 > '" & startdate.Value & "' And 需求提交时间 < '" & enddate.value.AddDays(1) & "'"

Else

DataTables("临时版本跟踪表").LoadFilter = filter & "需求提交时间 > '" & startdate.Value & "' And 需求提交时间 < '" & enddate.value.AddDays(1) & "' and 客户 = '" & kh.text & "'"

End If

End Select

下一主题 >> << 上一主题

主题：拼接语句