以下是引用有点甜在2014-9-30 10:19:00的发言:
代码没有问题啊,如果有问题,就是你的逻辑错了,你自己msgbox看一下条件,再对比一下你的数据。
我发现只要把刷新同步代码增加如下就可以了。就是最后filter一次,等到自己想要的数据即可。
Dim druser As DataRow = DataTables("技术支持信息表").SqlFind("name = '" & user.name & "'")
If User.Name.Trim() = "liujiyong@bdcom.com.cn" Then
Tables("需求明细表").Filter = ""
Else
Select Case user.Group
Case "录入"
If druser.Isnull("新负责人邮箱") Then
Tables("需求明细表").Filter = "技术支持邮箱 = '" & User.Name.trim() & "'"
Else
Tables("需求明细表").Filter = "技术支持邮箱 = '" & User.Name.trim() & "' or 技术支持邮箱 in ('" & druser("新负责人邮箱").Trim().Replace(",", "','") & "') "
End If
Case "审核"
Tables("需求明细表").filter = "流程 = '" & user.Group & "'"
End Select
End If
Tables("需求明细表").Sort = "需求编号 DESC"