请问红色的代码怎么改？
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
加好友 
发短信
Post By：2016/9/18 16:09:00 [只看该作者]
