| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 获取列名问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192152) |
| -- 作者：lrh9537 -- 发布时间：2024/5/31 12:51:00 -- 获取列名问题 1.当选择第一个组合框某个数据表后，在第二个组合列表框内把这个数据表的列名显示出来， 2.点击“获取列名”，选择某一个Excel表，在第三个组合列表框内把这个表的列名显示出来， 3.如果两个组合框内的列名一样，就勾选上对号。 以上的代码怎么写？谢谢指导
[此贴子已经被作者于2024/6/3 9:19:17编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2024/5/31 13:43:00 -- 1、获取所有列参考：http://www.foxtable.com/webhelp/topics/1428.htm |
| -- 作者：lrh9537 -- 发布时间：2024/5/31 16:16:00 -- 获取选择的目录下的文件代码怎么改？ Dim dlg As New FolderBrowserDialog If dlg.ShowDialog = DialogResult.Ok Then MessageBox.Show("你选择的目录是：" & dlg.SelectedPath, "提示") Dim ckl As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox4") For Each dt As DataTable In DataTables If dt.SourceType = 1 Then ckl.Items.Add(dt.name) End If Next End If
|
| -- 作者：有点蓝 -- 发布时间：2024/5/31 16:21:00 -- http://www.foxtable.com/webhelp/topics/0341.htm |
| -- 作者：lrh9537 -- 发布时间：2024/5/31 16:35:00 -- 帮助看过了，还需要老师指点修改代码： Dim dlg As New FolderBrowserDialog() If dlg.ShowDialog() = DialogResult.OK Then MessageBox.Show("你选择的目录是：" & dlg.SelectedPath, "提示") Dim ckl As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox4") Dim fileSystem As New FileSystem() For Each file As String In fileSystem.GetFiles(dlg.SelectedPath) ckl.Items.Add(File.name) Next End If
|
| -- 作者：有点蓝 -- 发布时间：2024/5/31 16:57:00 -- …… Dim ckl As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox4") For Each file As String In FileSys.GetFiles(dlg.SelectedPath) Next …… 建议先使用foxtable提供的功能：http://www.foxtable.com/webhelp/topics/0331.htm |
| -- 作者：lrh9537 -- 发布时间：2024/6/3 9:10:00 -- 这段可以把一个表的列显示出来，如我要切换另一个表显示另一个表的列怎么修改代码？ Dim ck2 As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox2") Dim dt As Table = Tables("脱贫户信息表") Dim cvw As String = dt.getColVisibleWidth Dim nms As New List(Of String) For i As Integer = 0 To ck2.Items.count - 1 \'获取已经勾选的列 If ck2.GetItemChecked(i) Then nms.Add(ck2.Items(i)) Else dt.Cols(ck2.Items(i)).Visible = False End If Next For Each dc As DataCol In DataTables("脱贫户信息表").DataCols ck2.Items.Add(dc.Name) Next
[此贴子已经被作者于2024/6/3 16:02:01编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2024/6/3 13:55:00 -- Dim ck2 As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox2") ck2.Items.clear For Each dc As DataCol In DataTables("另一个表").DataCols ck2.Items.Add(dc.Name) Next |