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


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

主题:[讨论]目录树显示某表中某行的某列

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


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

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

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


加好友 发短信
等级:幼狐 帖子:60 积分:451 威望: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


加好友 发短信
等级:幼狐 帖子:60 积分:451 威望:0 精华:0 注册:2022/10/17 15:24:00
  发帖心情 Post By:2022/11/1 21:13:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:显示某表某列_202211012110.zip


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


加好友 发短信
等级:幼狐 帖子:60 积分:451 威望: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

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


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


加好友 发短信
等级:超级版主 帖子:92934 积分:471813 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/1 21:34:00 [只看该作者]

没看懂,请给出一些测试数据,并截图说明最终要的效果
[此贴子已经被作者于2022/11/1 21:33:38编辑过]

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


加好友 发短信
等级:幼狐 帖子:60 积分:451 威望: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从数据库中调取了数据在对应的行上显示。现在我的问题是如何在文件管理器控件上显示第四列的内容


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


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

文件管理器控件绑定窗口的副表A即可,表格选中哪一行就会显示哪一行绑定的列的文件。

如果绑定主表A的,考虑做联动:http://www.foxtable.com/webhelp/topics/2631.htm
[此贴子已经被作者于2022/11/2 12:19:40编辑过]

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


加好友 发短信
等级:幼狐 帖子:60 积分:451 威望:0 精华:0 注册:2022/10/17 15:24:00
  发帖心情 Post By:2022/11/2 14:02:00 [只看该作者]

这里有个问题,就是窗口中的table是未绑定的,是随ComboBox控件选择而定的表,这要求显示列的控件也一样,这如何办?


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


加好友 发短信
等级:超级版主 帖子:92934 积分:471813 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/2 14:29:00 [只看该作者]


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


加好友 发短信
等级:幼狐 帖子:60 积分:451 威望: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
用这个代码搞不定,不知怎样才能达到目的

 回到顶部
总数 27 1 2 3 下一页