Foxtable(狐表)用户栏目专家坐堂 → [求助]CheckedComboBox列表项目能否动态添加?


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

主题:[求助]CheckedComboBox列表项目能否动态添加?

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


加好友 发短信
等级:婴狐 帖子:12 积分:131 威望:0 精华:0 注册:2023/1/20 16:24:00
[求助]CheckedComboBox列表项目能否动态添加?  发帖心情 Post By:2023/2/3 22:28:00 [只看该作者]

可能对各来说并不难,但我是个初学者,希望大家指教!


本例设想将本地excel表内容在窗口展示(在蓝老师的提示下已经实现,通过建立查询表),希望从table控件上提取指定单元格的文本(通过TextBox1和CheckedComboBox1来指定),最终在数据库建立新表并将查询表数据导入数据库(这是后话)


目前我的难题是CheckedComboBox1列表项目没办法建立,也就是选项出不来,求助各位帮我修改一下SelectedIndexChanged事件代码,谢谢!!!

我原来的代码如下:

Dim y As Integer = CInt(e.form.controls("ComboBox1").text)

Dim i As Integer

Dim cmb As WinForm.CheckedComboBox

For i = 0 To 5   

    cmb.Items(i).value = e.Form.Controls("Table1").Select(y, i)

Next

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:管理项目11.rar


[此贴子已经被作者于2023/2/4 9:41:09编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111422 积分:567186 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/2/4 9:02:00 [只看该作者]

请上传实例说明问题

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


加好友 发短信
等级:婴狐 帖子:12 积分:131 威望:0 精华:0 注册:2023/1/20 16:24:00
  发帖心情 Post By:2023/2/4 9:39:00 [只看该作者]

实例请指教
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目11.rar


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111422 积分:567186 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/2/4 9:48:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目11.zip


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


加好友 发短信
等级:婴狐 帖子:12 积分:131 威望:0 精华:0 注册:2023/1/20 16:24:00
  发帖心情 Post By:2023/2/4 9:56:00 [只看该作者]

非常感谢蓝老师,受教了

以上实例有一个严重的问题, 就是加载完一个查询后,如果重新打开对话框选择文件就会出现如图提示,

关闭不了。是不是ComboBox1控件的SelectedIndexChanged事件中所建立的查询一直请求资源?需要在

打开对话框事件中首销毁查询对象?怎么样写销毁对象代码?或者是别的什么问题呢?再麻烦老师

和各位大佬,谢谢!!!

[此贴子已经被作者于2023/2/4 14:24:08编辑过]

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


加好友 发短信
等级:婴狐 帖子:12 积分:131 威望:0 精华:0 注册:2023/1/20 16:24:00
没解决  发帖心情 Post By:2023/2/5 17:58:00 [只看该作者]

还是解决不了
[此贴子已经被作者于2023/2/5 22:00:30编辑过]

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


加好友 发短信
等级:婴狐 帖子:12 积分:131 威望:0 精华:0 注册:2023/1/20 16:24:00
还是不能重新打开文件,请蓝老师帮诊断  发帖心情 Post By:2023/2/5 22:00:00 [只看该作者]

加载完一个查询后,如果重新打开对话框选择文件就会出现如图提示,

关闭不了,请蓝老师帮诊断

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111422 积分:567186 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/2/5 22:19:00 [只看该作者]

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
    e.Form.Controls("Label4").text = dlg.FileName
    If Connections.Contains("test") Then
        e.Form.Controls("Table1").Table.DataSource = DataTables("表A")
        If DataTables.Contains("临时表") Then DataTables.Unload("临时表")
        Connections.Delete("test")
    End If
    Connections.Add("test", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dlg.FileName & ";Extended Properties=Excel 8.0;")
    Dim tns As String = ""
    For Each tn As String In Connections("test").GetTableNames
        tns &= tn & "|"
    Next
    e.Form.Controls("ComboBox1").ComboList = tns.TrimEnd("|")
End If

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


加好友 发短信
等级:婴狐 帖子:12 积分:131 威望:0 精华:0 注册:2023/1/20 16:24:00
  发帖心情 Post By:2023/2/6 10:51:00 [只看该作者]

 蓝老师威武

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


加好友 发短信
等级:婴狐 帖子:12 积分:131 威望:0 精华:0 注册:2023/1/20 16:24:00
未将对象引用设置到对象的实例?  发帖心情 Post By:2023/2/16 20:09:00 [只看该作者]

图片点击可在新窗口打开查看
求大神指点!!!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目111.rar


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