主题：窗口在窗口设计时预留正常，但在软件登录加载时异常

老师您好，我仿照帮助，做了一个窗口（业绩报盘），在窗口设计预览时，业绩报盘可以显示，但是在登录软件，窗口加载以后，业绩报盘内容为空，不能显示。具体截图和代码作为附件上传了，请老师帮忙看一下是哪里出了问题，谢谢。

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

点击浏览该文件:控件加载之后，部分功能无法显示.zip

"销售报表"表有加载数据吗？

Dim page As WinForm.TopicPage

Dim nms() As String = {"项目名称","签约机构","签约人"}

For Each nm As String In nms

page = Forms("导航窗口").Controls("报盘TopicBar1").pages(nm)

For Each pd As String In DataTables("销售报表").GetValues(nm)

msgbox(pd) '这里弹出什么内容

Dim lnk As WinForm.TopicLink = page.Links.add(pd,pd)

Dim cnt As Integer = DataTables("销售报表").Compute("count([_identify])", nm & " = ' " & pd & " '")

lnk.Text = lnk.Text & "(" & cnt & ")"

Next

Next

我试一下老师，我在导航菜单打开报表是有加载数据的

老师您好，我测试结果出来了，上传到附件了。还上传了一个管理项目（加载代码）截图和销售报表加载截图。

我感觉销售报表有加载啊

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

点击浏览该文件:控件加载之后，部分功能无法显示.zip

msgbox(DataTables("销售报表").datatrows.count) ‘"销售报表"表有加载数据吗？

Dim page As WinForm.TopicPage

Dim nms() As String = {"项目名称","签约机构","签约人"}

For Each nm As String In nms    

    page = Forms("导航窗口").Controls("报盘TopicBar1").pages(nm)

    For Each pd As String In DataTables("销售报表").GetValues(nm)

        msgbox(pd) '这里弹出什么内容    

        Dim lnk As WinForm.TopicLink = page.Links.add(pd,pd)

        Dim cnt As Integer = DataTables("销售报表").Compute("count([_identify])", nm & " = ' " & pd & " '")

        lnk.Text = lnk.Text & "(" & cnt & ")"

    Next

Next

如果不会调试就把实例发上来

msgbox(DataTables("销售报表").datatrows.count) 销售报表加载测试：7871

 

msgbox(pd) 测试：不断弹出项目名称、签约机构、签约人，一直要点击确定。

打开窗口设计看看"项目名称","签约机构","签约人"这些是不是导航page的名称，还是只是标题

我检查过，项目名称和标题都是一样的，没有问题。

奇怪的是，窗口设计预览的时候都没任何问题，就是软件启动的时候不显示。