- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]TopicBar 显示数据问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177804)
-- 发布时间：2022/6/5 15:31:00
-- [求助]TopicBar 显示数据问题
此主题相关图片如下：001.jpg
老师我在窗口中写了如下代码就是把库存“报警”行都显示出来，怎么TopicBar 不显示数据呢
Dim Page As WinForm.TopicPage
Dim cnt1 As Integer = DataTables("库存数据").Compute("Count(库存预警_上行_状态)", "( 库存预警_上行_状态 Is null Or 库存预警_上行_状态 <> \'报警\') ")
Page = e.Form.Controls("TopicBar2").Pages.Add(" 库存上行预警", " 库存上行预警", "520.png")
Page.Links.Add("库存上行预警", "库存上行预警(" & cnt1 & ")", "521.png" )
-- 发布时间：2022/6/5 20:53:00
--
请上传实例说明
-- 发布时间：2022/6/6 8:39:00
-- 回复：（有点蓝）请上传实例说明
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.foxdb |
老师请看，是不是我用了2个TopicBar的原因呢。
-- 发布时间：2022/6/6 8:49:00
--
SplitContainer2和TopicBar1的停靠都设置为fill，窗口运行后显示的是TopicBar1，SplitContainer2被遮住在后面了
-- 发布时间：2022/6/6 13:51:00
-- 回复：（有点蓝）SplitContainer2和TopicBar1的停靠都...
老师 我这TopicLinkClick 命令哪里写错了。
怎么执行不了，点击就自动把“报警”的所有行都显示出来
Select Case e.Link.Name
Case "库存报警"
For Each dr As DataRow In DataTables("库存数据").DataRows
dr("库存预警_上行_状态") = "报警"
Next \'打开报警的所有行
End Select
\'MessageBox.Show(e.Page.Name & "|" & e.Link.Name)
-- 发布时间：2022/6/6 13:53:00
--
没看懂【所有行都显示出来】是啥意思，这个代码只是给状态列赋值
-- 发布时间：2022/6/6 14:07:00
-- 回复：（有点蓝）没看懂【所有行都显示出来】是啥意思...
就是给状态是“报警”的行都显示出来
此主题相关图片如下：qq图片20220606140704.png
-- 发布时间：2022/6/6 14:12:00
--
筛选数据？
Tables("库存数据").filter = "库存预警_上行_状态= \'报警\'"