连接未关闭的错误? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2723人关注过本帖树形打印复制链接主题：连接未关闭的错误?

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)

end if

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

此主题相关图片如下：出错20190125152324.jpg

是什么原因?

谢谢!

HappyFt

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

上面只是想获取整个数据源的表名作为下拉,这样也不可以吗?

主题：连接未关闭的错误?