主题：[求助]等待时间一过，弹出登录窗口

3、

 

方法一：给用户表加入一列解锁密码，用户单独设置；

 

方法二：直接根据输入密码，这个做不到，不清楚默认的加密方式。

static flag As Boolean = False
If flag = False AndAlso LastInputTickCount >  18000 Then
    flag = True
    Syscmd.Project.SwitchUser()
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

Tables("临时版本跟踪表").Filter = "状态 = 'Confirming' or 状态 = 'Bound'  or 状态 is null"
Tables("需求主表").Filter = "审核通过 = False And  审核不通过 = False"
Tables("商务下单查询表").Filter = "状态 = 'Published'"
   
    flag = False
End If

我改为这样，发现加载需求明细表有问题。好像不受红色的代码的控制

 为什么要加入这个代码啊？我叫你在LoadUserSetting里面改啊

 新加的代码不变，改原本事件的代码啊，亲

SystemIdle代码仍然如下，对吧。那我把loadusersetting的启动加载的代码放入到切换窗口Syscmd.Project.SwitchUser()后执行应该是对的吧。感觉像是重复触发了启动加载的代码。

static flag As Boolean = False
If flag = False AndAlso LastInputTickCount >  18000 Then
    flag = True
    Syscmd.Project.SwitchUser()
    flag = False
End If

 

你说改原来事件的代码，是指loadusersetting的代码？

 这段写在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

关键的啊

 

static flag As Boolean = False
If flag = False Then
    '里面写你原来的东西
End If

这个我试过了。需求明细表加载的数据有问题。把另外的一个人的记录也加载进来了。

static flag As Boolean = False
If flag = False Then
    flag = True   
    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   
    Tables("临时版本跟踪表").Filter = "状态 = 'Confirming' or 状态 = 'Bound'  or 状态 is null"
    Tables("需求主表").Filter = "审核通过 = False And  审核不通过 = False"
    Tables("商务下单查询表").Filter = "状态 = 'Published'"
End If

 代码没有问题啊，如果有问题，就是你的逻辑错了，你自己msgbox看一下条件，再对比一下你的数据。