以下是引用有点甜在2014-9-29 18:06:00的发言:
这段写在LoadUserSetting
static flag As Boolean = False
If flag = False Then
flag = True
Tables("临时版本跟踪表").Filter = "状态 = 'Confirming' or 状态 = 'Bound' or 状态 is null"
Tables("需求主表").Filter = "审核通过 = False And 审核不通过 = False"
Tables("商务下单查询表").Filter = "状态 = 'Published'"
End If
甜老师,上面是针对临时版本跟踪表,需求主表,商务下单查询表的filter。我还有一个需求明细表。
在loadusersetting里面还有一段是针对需求明细表加载的case代码。如下。那如何把需求明细表也能正确加载呢。
Dim druser As DataRow = DataTables("技术支持信息表").SqlFind("name = '" & user.name & "'")
If User.Name.Trim() = "liujiyong@bdcom.com.cn" Then
DataTables("需求明细表").LoadFilter = ""
Else
Select Case user.Group
Case "录入"
If druser.Isnull("新负责人邮箱") Then
DataTables("需求明细表").LoadFilter = "技术支持邮箱 = '" & User.Name.trim() & "'"
Else
DataTables("需求明细表").LoadFilter = "技术支持邮箱 = '" & User.Name.trim() & "' or 技术支持邮箱 in ('" & druser("新负责人邮箱").Trim().Replace(",", "','") & "') "
End If
Case "审核"
DataTables("需求明细表").LoadFilter = "流程 = '" & user.Group & "'"
End Select
End If