Foxtable(狐表)用户栏目专家坐堂 → [分享]项目的主表管理


  共有10998人关注过本帖树形打印复制链接

主题:[分享]项目的主表管理

帅哥哟,离线,有人找我吗?
天若千颖
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:682 积分:4871 威望:0 精华:0 注册:2014/6/15 16:01:00
[分享]项目的主表管理  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
天若千颖
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:682 积分:4871 威望:0 精华:0 注册:2014/6/15 16:01:00
  发帖心情 Post By:2017/2/15 10:24:00 [显示全部帖子]

已解决。

[此贴子已经被作者于2017/2/15 10:43:55编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
天若千颖
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:682 积分:4871 威望:0 精华:0 注册:2014/6/15 16:01:00
  发帖心情 Post By: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

如果当前列表存在相同的表名,就不做任何处理,否则,增加一项。

 回到顶部
帅哥哟,离线,有人找我吗?
天若千颖
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:682 积分:4871 威望:0 精华:0 注册:2014/6/15 16:01:00
  发帖心情 Post By:2017/2/17 23:00:00 [显示全部帖子]

版主请教一个问题,例子中能够打开个个表,能否在右边的表名窗口中加一个按钮,点击按钮是,能够从表切换到他对应的窗口?如果这个表对应有几个窗口咋办? 另外,当显示为窗口时,如何切换到它对应的表?我这个项目中的通用代码是什么? 估计系统菜单“窗口”窗表切换功能就可以用,但是我怎么没有看到那个组合列表的代码是什么?

 回到顶部
帅哥哟,离线,有人找我吗?
天若千颖
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:682 积分:4871 威望:0 精华:0 注册:2014/6/15 16:01:00
  发帖心情 Post By:2017/2/20 8:52:00 [显示全部帖子]

蓝版主,我想找到我当前选中的表对应的活动窗口,代码如下:

For Each f As WinForm.Form In Forms
If f.TableName = e.Form.Controls("TablesCheckedListBox").SelectedValue Then 
MessageBox.show("当前窗口主表为:"&f.tablename)
Else
MessageBox.show("设置错误")
End If
Next

为什么所有的结果都是“设置错误”


 回到顶部