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

 图片和文字和代码分离得一塌糊涂，上传项目，说明要达到的目的。

 回复8楼，你给的例子，和你想实现的东西，和你写的代码，有半毛钱关系。

 你要的，只是任务栏的提醒。

 1、你需要循环所有的行，根据当前的用户，判断对应的列是否为空做判断；

 2、读或未读，你如何能区分？完全不能体现在表数据里；

 3、点击打开的时候，你直接找到对应的行，定位，然后把管理窗口打开即可。

按照说法自己去安排代码，不会，请先把帮助文档看完一次。

全部的的帮助文档。全部看完。

都是基础点的综合运用，不是单几个知识点

http://www.foxtable.com/help/topics/0207.htm

 看帮助自然自己知道，和你要做的东西只有半毛钱关系

 如下，给你做了一个。代码写在beforesaveDataRow和计时器里面了。

 自己参考着做。

 你知道你为什么不受人待见么？因为你不思长进，你现在连最基本的语法都不会，期望别人帮你把整个系统写好。扔出一大块内容，你以为别人都很闲么

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.foxdb

回复楼上，把这一段，放在最后

'对任务栏表进行操作
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.DeleteFor("文件名称='" & e.DataRow("文件名称") & "'")
Dim ndr As DataRow = dt.AddNew
ndr("编号") = e.DataRow("编号")
ndr("文件名称") = e.DataRow("文件名称")
ndr("状态") = msg
Dim us As String = ""
For Each user As UserInfo In users
    us &= user.Name & ","
Next
ndr("用户") = us.TrimEnd(",")
dt.Save

 先试试这样改。请具体说明是什么问题。

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("个案任务提醒")
    For Each dr As DataRow In dt.sqlSelect("编号 is not null")
        If Cstr(dr("用户")).Contains(user.name) Then
            tpg_system.Links.Add(dr("编号"), dr("文件名称"))
        End If
    Next
    Dim filter As String
    Select Case user.Roles
        Case "个案拆分"
            filter = "状态 = '待审核'"
        Case "行销部主管"
            filter = "状态 = '待批准'"
        Case "行销部经理"
            filter = "状态 = '待终审'"
        Case "Boss"
            filter = "状态 = '待裁决'"
        Case Else
            filter = "1=2"
    End Select
    For Each dr As DataRow In dt.sqlSelect(filter)
        tpg_new.Links.Add(dr("编号"), dr("文件名称"))
    Next
   
    Dim dt1 As DataTable = DataTables("文件查询提醒")
    For Each dr1 As DataRow In dt1.sqlSelect("编号 is not null")
        If Cstr(dr1("用户")).Contains(user.name) Then
            tpg_system1.Links.Add(dr1("编号"), dr1("文件名称"))
        End If
    Next
    Dim filter1 As String
    Select Case user.Roles
        Case "行销部主管"
            filter = "状态 = '待审核'"
        Case "行销部经理"
            filter = "状态 = '待批准'"
        Case Else
            filter = "1=2"
    End Select
    For Each dr1 As DataRow In dt1.sqlSelect(filter)
        tpg_new1.Links.Add(dr1("编号"), dr1("文件名称"))
    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