Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论]目录树显示某表中某行的某列


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

主题：[讨论]目录树显示某表中某行的某列
帅哥哟，离线，有人找我吗？
jk36
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：169 积分：1124 威望：0 精华：0 注册：2022/10/17 15:24:00 		[讨论]目录树显示某表中某行的某列  发帖心情 Post By：2022/11/1 21:05:00 [显示全部帖子]

本例代码是用目录树显示某表中某行，现在我想进一步，单显示某表中某行还不行，还想同时显示这行中的某列，用单独的文本框或文件管理器等显示，请问代码怎写？

 回到顶部
帅哥哟，离线，有人找我吗？
jk36
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：169 积分：1124 威望：0 精华：0 注册：2022/10/17 15:24:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
jk36
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：169 积分：1124 威望：0 精华：0 注册：2022/10/17 15:24:00 		  发帖心情 Post By：2022/11/1 21:13:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:显示某表某列_202211012110.zip
 回到顶部
帅哥哟，离线，有人找我吗？
jk36
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：169 积分：1124 威望：0 精华：0 注册：2022/10/17 15:24:00 		  发帖心情 Post By：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

本例代码是用目录树显示某表中某行，现在我想进一步，单显示某表中某行还不行，还想同时显示这行中的某列，用单独的文本框或文件管理器等显示，请问代码怎写？
 回到顶部
帅哥哟，离线，有人找我吗？
jk36
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：169 积分：1124 威望：0 精华：0 注册：2022/10/17 15:24:00 		  发帖心情 Post By：2022/11/2 11:01:00 [显示全部帖子]

有表A,表B,表C,建一个窗口，设计如附件。现在我的代码是，假如选择了表A与列后，将会形成一个目录树，单击目录树节点后在窗口的副表A选择了对应的行，这些代码等已设置搞好。
现在我的问题是，1，先设置表A中第四列的属性为备注，同时在窗口中加一个文件管理器控件与第四列对应。2，现在选择了表A与列后形成对应的目录树，并在窗口的副表A从数据库中调取了数据在对应的行上显示。现在我的问题是如何在文件管理器控件上显示第四列的内容
 回到顶部
帅哥哟，离线，有人找我吗？
jk36
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：169 积分：1124 威望：0 精华：0 注册：2022/10/17 15:24:00 		  发帖心情 Post By：2022/11/2 14:02:00 [显示全部帖子]

这里有个问题，就是窗口中的table是未绑定的，是随ComboBox控件选择而定的表，这要求显示列的控件也一样，这如何办?
 回到顶部
帅哥哟，离线，有人找我吗？
jk36
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：169 积分：1124 威望：0 精华：0 注册：2022/10/17 15:24:00 		  发帖心情 Post By：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
用这个代码搞不定，不知怎样才能达到目的
 回到顶部
帅哥哟，离线，有人找我吗？
jk36
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：169 积分：1124 威望：0 精华：0 注册：2022/10/17 15:24:00 		  发帖心情 Post By：2022/11/2 16:00:00 [显示全部帖子]

我想问一下，象我这样的，文件管理器能不能动态绑定？

 回到顶部
帅哥哟，离线，有人找我吗？
jk36
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：169 积分：1124 威望：0 精华：0 注册：2022/10/17 15:24:00 		  发帖心情 Post By：2022/11/2 18:16:00 [显示全部帖子]

Dim txt As WinForm.FileManager
txt = e.Form.CreateControl("FileManager1", ControlTypeEnum.FileManager)
txt.Left = 1000
txt.Top = 1000
e.Form.AddControl(txt)
txt.BindingField = "表A.第四列"

在窗口1中添加个按钮，动态增加文件管理器，这个代码对吗？
 回到顶部
帅哥哟，离线，有人找我吗？
jk36
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：169 积分：1124 威望：0 精华：0 注册：2022/10/17 15:24:00 		  发帖心情 Post By：2022/11/2 18:18:00 [显示全部帖子]

在窗口1中添加个按钮，动态增加文件管理器，这个代码对吗？

 回到顶部
总数 19 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05664 秒, 7 次数据查询