主题：请问老师，我哪里设置错误了，为什么不显示相关内容~~

我搞完这个提醒，我就消失，一个月，让你们也安静一下·~

Dim filter As String = "[表名] = '" & tname & "' and [编号] = '" & num & "'"

 

我改成这样子，也不行额~~~

项目在运行了，能不能让有点甜老师帮我解决一下，他比较熟悉~~

回复老师，我是~~部门内最大那个~~。没人敢不用~~

 

你说的，的，我的项目是被使用了~~

此主题相关图片如下：360截图20140520102649468.jpg

有点甜老师，吃饭了吗？？

 

我想问问，为什么会出现图示那样，一个文件会重复显示？？？？

 

如果是同一个文件的话，就没必要重复显示了吧？？？

此主题相关图片如下：360截图20140520180959203.jpg

老师，还在吗？？如果我将任务提醒窗口变成主窗口，为什么先显示，这样错误，需要怎么样修改？？
此主题相关图片如下：360截图20140520214434593.jpg


此主题相关图片如下：360截图20140520214427421.jpg

谢谢老师~~~我处理完成了，谢谢·~~

 

老师，我还想问一个文件，如果我需要在窗口上显示，未处理数量，那我是不是需要加入统计代码？？

 

是在窗口代码加，还是在计划管理里面加？？

老师，请问这样编写对吗？？

 

Static maxIdx As Integer
Dim idx As Integer = DataTables("任务提醒").SQLCompute("max(_Identify)")
If maxIdx = idx Then
    Return
Else
    maxIdx = idx
End If
Static ib As Boolean
Dim f As WinForm.Form = Forms("任务提醒")
Dim fw As Integer = 250
Dim fh As Integer = 250
Dim k As  Integer = 1
If k > 0 AndAlso f.Opened = False Then
    f.Open(SysInfo.WorkingAreaWidth-fw,SysInfo.WorkingAreaHeight)
End If

If f.Opened Then
    Dim h As Integer = SysInfo.ScreenHeight - SysInfo.WorkingAreaHeight + fh
    If f.BaseForm.Top > SysInfo.WorkingAreaHeight - fh Then
        For i As Integer = 1 To h
            f.setbounds(SysInfo.WorkingAreaWidth-fw,SysInfo.WorkingAreaHeight-i,fw-19,fh)
        Next
    End If
    Dim tbr As WinForm.TopicBar = f.Controls("TopicBar1")
    Dim tpg_system As WinForm.TopicPage = tbr.Pages("个案动态")
    Dim tpg_new As WinForm.TopicPage = tbr.Pages("待签署个案")
    Dim tpg_system1 As WinForm.TopicPage = tbr.Pages("文件动态")
    Dim tpg_new1 As WinForm.TopicPage = tbr.Pages("待签署文件")
   
    tpg_system.Links.Clear
    tpg_new.Links.Clear
    tpg_system1.Links.Clear
    tpg_new1.Links.Clear
   

Dim dt As DataTable
Dim b As New SQLGroupTableBuilder("统计表1","任务提醒")
b.Groups.AddDef("编号")
b.Groups.AddDef("表名")
b.Totals.AddDef("_Identify",AggregateEnum.Count,"任务数")

    Dim dt As DataTable = DataTables("任务提醒")
    Dim filter As String
    Select Case user.Roles
        Case "个案拆分"
            filter = "待审核"
        Case "行销部主管"
            filter = "待批准"
        Case "行销部经理"
            filter = "待终审"
        Case "Boss"
            filter = "待裁决"
        Case Else
            filter = "1=2"
    End Select
   
    Dim filter1 As String
    Select Case user.Roles
        Case "行销部主管"
            filter1 = "待审核"
        Case "行销部经理"
            filter1 = "待批准"
        Case Else
            filter1 = "1=2"
    End Select
   
    Dim rand As Integer = 0
    For Each dr As DataRow In dt.sqlSelect("编号 is not null")
       
        Select Case dr("表名")
            Case "个案申请"
                If Cstr(dr("用户")).Contains(user.name) Then
                    tpg_system.Links.Add(dr("表名") & "_" & dr("编号"), dr("文件名称"))
                End If
                If dr("状态") = filter Then
                    tpg_new.Links.Add(dr("表名") & "_" & dr("编号"), dr("文件名称"))
                End If
            Case "文件管理"
                If Cstr(dr("用户")).Contains(user.name) Then
                    tpg_system1.Links.Add(dr("表名") & "_" & dr("编号"), dr("文件名称"))
                End If
                If dr("状态") = filter1 Then
                    tpg_new1.Links.Add(dr("表名") & "_" & dr("编号"), dr("文件名称"))
                End If
        End Select
            
    Next
End If

我尝试过，了，为什么不能显示呢？？因为生成了临时表，为什么窗口里没有显示未显示内容~

没其他问题，就是窗口还是不显示未处理数量