- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 连接未关闭的错误? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=130574)
-- 发布时间：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
是什么原因?
谢谢!
-- 发布时间：2019/1/25 15:36:00
--
不要写到prepareEdit事件，这个事件是重复、多次执行的。
-- 发布时间：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
上面只是想获取整个数据源的表名作为下拉,这样也不可以吗?
-- 发布时间：2019/1/25 19:31:00
--
不应该在这里获取。你可以在别的地方获取（别的事件，比如click等等），在这里prepareEdit事件读取值过来显示即可。