从字符串“客服 = User.Name”到类型“Integer”的转换无效。
Case "按客户"
Tables("订单表").OpenLoadTree("客户|状态|订单名称")
Case "按日期"
If User.Name = "管理员" Then
DataTables("订单表").LoadFilter = ""
ElseIf user.Group = "设计师" Then
Tables("订单表").OpenLoadTree("日期 YM|状态|订单名称","设计师 = User.Name")
ElseIf user.Group = "客服" Then
Tables("订单表").OpenLoadTree("日期 YM|状态|订单名称","客服 = User.Name")
ElseIf user.Group = "报价" Then
Tables("订单表").OpenLoadTree("日期 YM|状态|订单名称","报价 = User.Name")
End If
Case "按状态"
If User.Name = "管理员" Then
DataTables("订单表").LoadFilter = ""
ElseIf user.Group = "设计师" Then
Tables("订单表").OpenLoadTree("状态|客户|订单名称","设计师 = User.Name")
ElseIf user.Group = "客服" Then
Tables("订单表").OpenLoadTree("状态|客户|订单名称","客服 = User.Name")
ElseIf user.Group = "报价" Then
Tables("订单表").OpenLoadTree("状态|客户|订单名称","报价 = User.Name")
End If