主题：求助：如何让任务栏数据统计只新增一次之后，再点保存按钮达到不新增但是数据刷新的效果呢？

写一个，其余照抄

Dim fll As WinForm.TopicBar = Forms("收文登记").Controls("收文登记信息一览")
Dim ly As WinForm.TopicPage = fll.Pages("文件来源")
For Each wjly As String In DataTables("系统词典").GetComboListString("内容","类型 =  '文件来源' ","_Identify" ).Split("|")
    Dim flag As Boolean = False
    For Each l As object In ly.Links
        If l.name = wjly Then
            flag = True
        End If
    Next
    Dim kg As String = new String (" ",15-wjly.Length*2)
    If flag Then
        ly.Links(wjly).Text = wjly  & kg & "(" & DataTables("收发文基础信息").Compute("count(_identify)","文件来源 = '" & wjly & "'") & "件)"
    Else
        ly.Links.Add(wjly,wjly  & kg & "(" & DataTables("收发文基础信息").Compute("count(_identify)","文件来源 = '" & wjly & "'") & "件)" )
    End If
Next

 或者，你先把所有的清除，再添加

ly.Links.Clear

dw.Links.Clear

就是去掉Clear就行啊。

重新运行一次 刷新 的代码

是。也就是生成的那些代码，关键你要去理解