Foxtable(狐表) → 用户栏目 → 专家坐堂 → 连接未关闭的错误?


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

主题：连接未关闭的错误?
帅哥哟，离线，有人找我吗？
happyft
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1930 积分：17576 威望：0 精华：0 注册：2014/7/29 19:09:00 		连接未关闭的错误?  发帖心情 Post By：2019/1/25 15:28:00 [只看该作者]

在表中prepareEdit事件
If e.IsFocusCell Then
    Dim lst As List(Of String)
    lst = Connections(Mydata).GetTableNames
    For Each nm As String In lst
        Output.Show(nm)
    Next
 end if

但每次复制粘贴时就会出错

图片点击可在新窗口打开查看此主题相关图片如下：出错20190125152324.jpg
图片点击可在新窗口打开查看

是什么原因?
谢谢!
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/1/25 15:36:00 [只看该作者]

 

不要写到prepareEdit事件，这个事件是重复、多次执行的。

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
HappyFt
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1930 积分：17576 威望：0 精华：0 注册：2014/7/29 19:09:00 		  发帖心情 Post By：2019/1/25 18:00:00 [只看该作者]

实际代码
If e.IsFocusCell Then   
    ' ---获取所有后台数据库表名
    Dim lst As List(Of String)
    lst = Connections("EI").GetTableNames
 Select Case e.Col.Name
        Case "IDC","Rc","IdCol","Ucols","idCol2"
...
....
end select
end if
上面只是想获取整个数据源的表名作为下拉,这样也不可以吗?
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/1/25 19:31:00 [只看该作者]

 

不应该在这里获取。你可以在别的地方获取（别的事件，比如click等等），在这里prepareEdit事件读取值过来显示即可。

 

 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询