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

如下，很简单的问题，基本语法。很担心你做出来的东西以后有问题你怎么办

 

Dim tname As String = e.Link.Name.Split("_")(0)
Dim num As String = e.Link.Name.Split("_")(1)

Dim filter As String = "编号 = '" & num & "'"

Dim fdr As DataRow = DataTables(tname).Find(filter)
If fdr Is Nothing Then
    DataTables(tname).AppendLoad(filter, False)
End If
Dim idx As Integer = Tables(tname).FindRow(filter)
If idx > -1 Then
    Tables(tname).Position = idx
    fdr = DataTables("任务提醒").sqlFind(filter)
    fdr("用户") = cStr(fdr("用户")).replace(user.Name & ",", "").replace("," & user.Name, "").replace(user.name, "")
    fdr.save
    Select Case tname
        Case "个案申请"
            Forms("功能栏").Open()
        Case "文件管理"
            Forms("文件管理").Open()
    End Select
End If

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

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

 

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

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

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

 

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

 

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

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

 回复64楼，把保存事件的代码改成这样，看红色位置

 

'对任务栏表进行操作
Dim dt As DataTable = DataTables("任务提醒")
Dim msg As String
If e.DataRow.isnull("裁决")=False Then
    msg  = "已结案"
Else If e.DataRow.isnull("终审")=False Then
    msg = "待裁决"
Else If e.DataRow.isnull("批准") =False Then
    msg  = "待终审"
Else If e.DataRow.Isnull("审核") = False Then
    msg  = "待批准"
Else
    msg  = "待审核"
End If
dt.SQLDeleteFor("文件名称='" & e.DataRow("文件名称") & "'")
Dim ndr As DataRow = dt.AddNew
ndr("编号") = e.DataRow("编号")
ndr("文件名称") = e.DataRow("文件名称")
ndr("状态") = msg
ndr("表名") = e.DataTable.Name
Dim us As String = ""
For Each user As UserInfo In users
    us &= user.Name & ","
Next
ndr("用户") = us.TrimEnd(",")
ndr.Save

老师，还在吗？？如果我将任务提醒窗口变成主窗口，为什么先显示，这样错误，需要怎么样修改？？
此主题相关图片如下：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("任务提醒")
f.Open
'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

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

 

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

 

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

想一直更新,就在计划管理里面加

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

 

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