以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [分享]项目的主表管理 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96189) |
-- 作者:天若千颖 -- 发布时间:2017/2/15 10:20:00 -- [分享]项目的主表管理 很多项目中主表特别多,狐表现在的主表显示查找起来不方便。
lsy提供了一个很好的思路,原贴见:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=56677&replyID=&skin=1,但是该例子要加在自己的项目中很不方便,于是我做了一个精简的版本,只需要一个窗口。
你需要在自己的项目中加入和本项目同样的窗口,并设置为“共有窗口” 即可。然后用一个按钮在需要的时候打开这个窗口。
功能如下:
1.窗口中主表中显示当前项目中所有的表, 2.通过复选框可以选择在表标签中显示多个表,当鼠标点击其中一个表时,主表切换为当前表。 3.新增表时,点击刷新按钮后窗口中显示新增表。
以下内容只有回复后才可以浏览 [此贴子已经被作者于2017/2/15 10:57:58编辑过]
|
-- 作者:苏州老街 -- 发布时间:2017/2/15 10:23:00 -- 学习 |
-- 作者:天若千颖 -- 发布时间:2017/2/15 10:24:00 -- 已解决。 [此贴子已经被作者于2017/2/15 10:43:55编辑过]
|
-- 作者:有点色 -- 发布时间:2017/2/15 10:49:00 -- If t.TableType = TableTypeEnum.Normal AndAlso t.IsCopy = False Then
改成
If t.TableType = TableTypeEnum.Normal AndAlso t.IsCopy = False AndAlso clsbox.items.Contains(t.name) = False Then
-------------------------或者是-----------------------------
把clsbox.items.clear清空 |
-- 作者:天若千颖 -- 发布时间:2017/2/15 10:53:00 -- 谢谢版主,我也搞定了,这么做的: For Each s As String In lst If clstbox.items.contains(s) Then Else clstbox.Items.Add(s) End If Next 如果当前列表存在相同的表名,就不做任何处理,否则,增加一项。
|
-- 作者:实话实说 -- 发布时间:2017/2/15 11:29:00 -- 不错,收藏. |
-- 作者:xszzhaoys1 -- 发布时间:2017/2/15 14:05:00 -- 学习学习 |
-- 作者:rjh4078 -- 发布时间:2017/2/15 14:29:00 -- good |
-- 作者:jyh7081 -- 发布时间:2017/2/15 14:51:00 -- 学习 |
-- 作者:gua12gua -- 发布时间:2017/2/15 18:04:00 -- dddddddddddd |