- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [讨论]目录树显示某表中某行的某列 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=183339)
-- 发布时间：2022/11/1 21:05:00
-- [讨论]目录树显示某表中某行的某列
本例代码是用目录树显示某表中某行，现在我想进一步，单显示某表中某行还不行，还想同时显示这行中的某列，用单独的文本框或文件管理器等显示，请问代码怎写？
-- 发布时间：2022/11/1 21:07:00
--
Dim Values() As String = e.Form.Controls("CheckedComboBox列").Text.Split(",")
Dim strs() As String = e.Node.FullName.Split("\\")
Dim dr As DataRow = e.Node.DataRow
Dim flt As String
For i As Integer = 0 To strs.Length - 1 \'\'间接获取目录树层级(Level)
For j As Integer = 0 To Values.Length - 1
If i = j Then \'\'只加入选定节点及以上的节点
flt + = Values(j) & "= \'" & dr(Values(j)) & "\' And "
End If
Next
Next
If flt > "" Then
Tables(e.Form.Name & "_Table1").Filter = flt.SubString(0, flt.Length - 5)
End If
-- 发布时间：2022/11/1 21:13:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:显示某表某列_202211012110.zip |
-- 发布时间：2022/11/1 21:14:00
--
Dim Values() As String = e.Form.Controls("CheckedComboBox列").Text.Split(",") Dim strs() As String = e.Node.FullName.Split("\\") Dim dr As DataRow = e.Node.DataRow Dim flt As String For i As Integer = 0 To strs.Length - 1 \'\'间接获取目录树层级(Level) For j As Integer = 0 To Values.Length - 1 If i = j Then \'\'只加入选定节点及以上的节点 flt + = Values(j) & "= \'" & dr(Values(j)) & "\' And " End If Next Next If flt > "" Then Tables(e.Form.Name & "_Table1").Filter = flt.SubString(0, flt.Length - 5) End If |
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:显示某表某列_202211012110.zip |
本例代码是用目录树显示某表中某行，现在我想进一步，单显示某表中某行还不行，还想同时显示这行中的某列，用单独的文本框或文件管理器等显示，请问代码怎写？ |
-- 发布时间：2022/11/1 21:34:00
--
没看懂，请给出一些测试数据，并截图说明最终要的效果
[此贴子已经被作者于2022/11/1 21:33:38编辑过]
-- 发布时间：2022/11/2 11:01:00
--
有表A,表B,表C,建一个窗口，设计如附件。现在我的代码是，假如选择了表A与列后，将会形成一个目录树，单击目录树节点后在窗口的副表A选择了对应的行，这些代码等已设置搞好。
现在我的问题是，1，先设置表A中第四列的属性为备注，同时在窗口中加一个文件管理器控件与第四列对应。2，现在选择了表A与列后形成对应的目录树，并在窗口的副表A从数据库中调取了数据在对应的行上显示。现在我的问题是如何在文件管理器控件上显示第四列的内容
-- 发布时间：2022/11/2 12:19:00
--
文件管理器控件绑定窗口的副表A即可，表格选中哪一行就会显示哪一行绑定的列的文件。
如果绑定主表A的，考虑做联动：http://www.foxtable.com/webhelp/topics/2631.htm
[此贴子已经被作者于2022/11/2 12:19:40编辑过]
-- 发布时间：2022/11/2 14:02:00
--
这里有个问题，就是窗口中的table是未绑定的，是随ComboBox控件选择而定的表，这要求显示列的控件也一样，这如何办?
-- 发布时间：2022/11/2 14:29:00
--
动态绑定：http://www.foxtable.com/webhelp/topics/1860.htm
-- 发布时间：2022/11/2 14:51:00
--
Dim s As String = e.Form.Controls("TextBox1").BindingField
If s > "" Then
Dim p As Integer = s.LastIndexOf(".")
Dim t As String = s.SubString(0, p)
Dim c As String = s.SubString(p + 1)
MessageBox.Show("绑定表: " & t & " 绑定列: " & c)
End If
用这个代码搞不定，不知怎样才能达到目的