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

运行出现什么问题,直接说.

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

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

 

在窗口哪里显示未处理数量？这个和你的统计表有什么关系？

那我现在需要在窗口显示未处理，数量，那我怎么样弄~~？？

 如果要统计，这样统计，要在哪里显示，自己决定。

 

Dim count1 As Integer = DataTables("任务提醒").SQLCompute("count(_Identify)", "表名 = '个案申请' and 用户 like '*" & user.Name & "*'")
Dim count2 As Integer = DataTables("任务提醒").SQLCompute("count(_Identify)", "表名 = '文件管理' and 用户 like '*" & user.Name & "*'")

 或者在这里统计

 

Dim count1 As Integer = 0
Dim count2 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("文件名称"))
                count1 += 1
            End If
            If dr("状态") = filter Then
                tpg_new.Links.Add(dr("表名") & "_" & dr("编号"), dr("文件名称"))
                count1 += 1
            End If
        Case "文件管理"
            If Cstr(dr("用户")).Contains(user.name) Then
                tpg_system1.Links.Add(dr("表名") & "_" & dr("编号"), dr("文件名称"))
                count2 += 1
            End If
            If dr("状态") = filter1 Then
                tpg_new1.Links.Add(dr("表名") & "_" & dr("编号"), dr("文件名称"))
                count2 += 1
            End If
    End Select
   
Next

如果我需要在PAGE的标题上显示，也就是说“个案动态”“待签署个案”“文件动态”“待签署文件”后面显示数量的话，这个代码真不太会啊，我刚看了，加载目录树统计的教程，他是通过节点来做的，如果是我说的情况又是如何实现呢？？

此主题相关图片如下：360截图20140521094809484.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 = 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

Dim count1 As Integer = 0
Dim count2 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("文件名称"))
                count1 += 1
            End If
            If dr("状态") = filter Then
                tpg_new.Links.Add(dr("表名") & "_" & dr("编号"), dr("文件名称"))
                count1 += 1
            End If
        Case "文件管理"
            If Cstr(dr("用户")).Contains(user.name) Then
                tpg_system1.Links.Add(dr("表名") & "_" & dr("编号"), dr("文件名称"))
                count2 += 1
            End If
            If dr("状态") = filter1 Then
                tpg_new1.Links.Add(dr("表名") & "_" & dr("编号"), dr("文件名称"))
                count2 += 1
            End If
    End Select
   
Next

 

显示错误~~

是否需要重新将DT定义成DT1

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