- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]CheckedComboBox列表项目能否动态添加? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185106)
-- 发布时间：2023/2/3 22:28:00
-- [求助]CheckedComboBox列表项目能否动态添加?
可能对各来说并不难,但我是个初学者,希望大家指教!
本例设想将本地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编辑过]
-- 发布时间：2023/2/4 9:02:00
--
请上传实例说明问题
-- 发布时间：2023/2/4 9:39:00
--
实例请指教
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目11.rar |
-- 发布时间：2023/2/4 9:48:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目11.zip |
-- 发布时间：2023/2/4 9:56:00
--
非常感谢蓝老师,受教了
以上实例有一个严重的问题， 就是加载完一个查询后，如果重新打开对话框选择文件就会出现如图提示，
关闭不了。是不是ComboBox1控件的SelectedIndexChanged事件中所建立的查询一直请求资源？需要在
打开对话框事件中首销毁查询对象？怎么样写销毁对象代码？或者是别的什么问题呢？再麻烦老师
和各位大佬，谢谢！！！
[此贴子已经被作者于2023/2/4 14:24:08编辑过]
-- 发布时间：2023/2/5 17:58:00
-- 没解决
还是解决不了
[此贴子已经被作者于2023/2/5 22:00:30编辑过]
-- 发布时间：2023/2/5 22:00:00
-- 还是不能重新打开文件,请蓝老师帮诊断
加载完一个查询后，如果重新打开对话框选择文件就会出现如图提示，
-- 发布时间：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
-- 发布时间：2023/2/6 10:51:00
--
蓝老师威武
-- 发布时间：2023/2/16 20:09:00
-- 未将对象引用设置到对象的实例?
求大神指点!!!
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目111.rar |