Foxtable(狐表)用户栏目专家坐堂 → 表的下拉


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

主题:表的下拉

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


加好友 发短信
等级:八尾狐 帖子:1838 积分:13006 威望:0 精华:0 注册:2013/6/10 9:23:00
表的下拉  发帖心情 Post By:2014/8/4 0:59:00 [只看该作者]

一个表中多个字段都需要下拉, 代码如下:

 

Tables("订单").Cols("AAA").Combolist = DataTables("订单").GetComboListString("AAA")
Tables("订单").Cols("BBB").Combolist = DataTables("订单").GetComboListString("BBB")
Tables("订单").Cols("CCC").Combolist = DataTables("订单").GetComboListString("CCC")
Tables("订单").Cols("DDD").Combolist = DataTables("订单").GetComboListString("DDD")

 

这样做好像不好, 请老师指正!


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


加好友 发短信
等级:一尾狐 帖子:451 积分:3045 威望:0 精华:1 注册:2012/7/17 22:08:00
  发帖心情 Post By:2014/8/4 2:18:00 [只看该作者]

Dim s2 As New List(Of String)
Dim v1() As String = {"aa","bb","cc"}
s2.AddRange(v1)
If s2.Contains(e.Col.Name)= True Then
    e.Col.ComboList=DataTables(e.Table.Name).GetComboListString(e.Col.Name)
End If
没有对不对的自己觉得合适,软件运行效率可以达到功能怎么写都可以!
记住Tables和DataTables名一样才可以这样
[此贴子已经被作者于2014-8-4 2:38:30编辑过]

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


加好友 发短信
等级:八尾狐 帖子:1838 积分:13006 威望:0 精华:0 注册:2013/6/10 9:23:00
  发帖心情 Post By:2014/8/4 8:24:00 [只看该作者]

谢谢, 我那样写已经影响到了软件的运行


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


加好友 发短信
等级:八尾狐 帖子:1838 积分:13006 威望:0 精华:0 注册:2013/6/10 9:23:00
  发帖心情 Post By:2014/8/4 8:29:00 [只看该作者]

菜单反应异常


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/8/4 8:36:00 [只看该作者]

怎么个异常法,上个例子看看

 回到顶部
帅哥哟,离线,有人找我吗?
land089
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:451 积分:3045 威望:0 精华:1 注册:2012/7/17 22:08:00
  发帖心情 Post By:2014/8/4 8:47:00 [只看该作者]

保存项目后重新打开项目,我测试代码的时候遇到过,可能是BUG

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/8/4 9:05:00 [只看该作者]

 不应该有问题,代码没错。

 回到顶部
帅哥哟,离线,有人找我吗?
seal51
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1838 积分:13006 威望:0 精华:0 注册:2013/6/10 9:23:00
  发帖心情 Post By:2014/8/4 9:47:00 [只看该作者]

菜单反应迟缓,老显示不出来,提示框跳不出来,项目像死了一样

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/8/4 9:50:00 [只看该作者]

以下是引用seal51在2014-8-4 9:47:00的发言:
菜单反应迟缓,老显示不出来,提示框跳不出来,项目像死了一样

 

肯定是其它代码有影响吧?比如 prepareEdit等事件,你可以做一个例子发上来测试。

 


 回到顶部
帅哥哟,离线,有人找我吗?
seal51
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1838 积分:13006 威望:0 精华:0 注册:2013/6/10 9:23:00
  发帖心情 Post By:2014/8/4 9:56:00 [只看该作者]

如果列多了, 这个代码会不会影响菜单的显示

Tables("订单").AutoSizeCols()


 回到顶部
总数 16 1 2 下一页