Select Case user.Group
Case "录入","审核","协议一组","协议二组","交换组","R驱动组","S驱动组","EPON组","ONU组","网管组","网络组","路由组","PTN应用组","链路组","测试epon","测试switch","测试router"
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
加好友 
发短信
Post By：2016/9/18 16:20:00 [显示全部帖子]
