以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [分享]项目的主表管理  (http://www.foxtable.com/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.新增表时,点击刷新按钮后窗口中显示新增表。

 

 
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170215105634.png
图片点击可在新窗口打开查看



以下内容只有回复后才可以浏览


[此贴子已经被作者于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