以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表的下拉  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54740)
--  作者：seal51
--  发布时间：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
--  发布时间：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
--  发布时间：2014/8/4 8:24:00
--  

谢谢， 我那样写已经影响到了软件的运行
--  作者：seal51
--  发布时间：2014/8/4 8:29:00
--  

菜单反应异常
--  作者：Bin
--  发布时间：2014/8/4 8:36:00
--  
怎么个异常法,上个例子看看
--  作者：land089
--  发布时间：2014/8/4 8:47:00
--  
保存项目后重新打开项目，我测试代码的时候遇到过，可能是BUG
--  作者：有点甜
--  发布时间：2014/8/4 9:05:00
--  
 不应该有问题，代码没错。
--  作者：seal51
--  发布时间：2014/8/4 9:47:00
--  
菜单反应迟缓，老显示不出来，提示框跳不出来，项目像死了一样
--  作者：有点甜
--  发布时间：2014/8/4 9:50:00
--  
以下是引用seal51在2014-8-4 9:47:00的发言：
菜单反应迟缓，老显示不出来，提示框跳不出来，项目像死了一样

 

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

 
--  作者：seal51
--  发布时间：2014/8/4 9:56:00
--  

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

Tables("订单").AutoSizeCols()