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

O，我明白了~~我先试试~

老师请问这段代码哪里有问题，为什么还没显示数量：

 

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   
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
End If

 

 

此主题相关图片如下：360截图20140521100047140.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
    Dim count1 As Integer = 0
    Dim count2 As Integer = 0
    Dim count3 As Integer = 0
    Dim count4 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("文件名称"))
                    count2 += 1
                End If
            Case "文件管理"
                If Cstr(dr("用户")).Contains(user.name) Then
                    tpg_system1.Links.Add(dr("表名") & "_" & dr("编号"), dr("文件名称"))
                    count3 += 1
                End If
                If dr("状态") = filter1 Then
                    tpg_new1.Links.Add(dr("表名") & "_" & dr("编号"), dr("文件名称"))
                    count4 += 1
                End If
        End Select
    Next
End If

 

tpg_system.Text = tpg_system.Name & "(" & count1 & ")"
tpg_new.Text = tpg_system.Name & "(" & count2 & ")"
tpg_system1.Text = tpg_system.Name & "(" & count3 & ")"
tpg_new1.Text = tpg_system.Name & "(" & count4 & ")"

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

 放在If End If，请不要问这些简单的问题。

老师，我全部搞点了，我明天去出差，1个月回来，然后再找你吧~~~

 再见   楼主公司应该在广东.....

老师在吗？？为什么用这段代码，提醒栏都是“个案动态”的。。。。？？

 

 

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

改一下这段

 

tpg_system.Text = tpg_system.Name & "(" & count1 & ")"
tpg_new.Text = tpg_new.Name & "(" & count2 & ")"
tpg_system1.Text = tpg_system1.Name & "(" & count3 & ")"
tpg_new1.Text = tpg_new1.Name & "(" & count4 & ")"

谢谢老实~