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


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

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

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


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

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

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


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

dim 表名 as string = “ComboBox控件选择而定的表名
dim 列名 as string = “ComboBox控件选择而定的列名
e.Form.Controls("TextBox1").BindingField = 表名 & “.” & 列名

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


加好友 发短信
等级:幼狐 帖子:168 积分:1108 威望: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
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


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


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

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


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


在窗口1中添加个按钮,动态增加文件管理器,这个代码对吗
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:显示某表某列1.foxdb


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


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


[此贴子已经被作者于2022/11/2 18:27:00编辑过]

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


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

dim 表名 as string = “ComboBox控件选择而定的表名
dim 列名 as string = “ComboBox控件选择而定的列名
e.Form.Controls("TextBox1").BindingField = 表名 & “.” & 列名

这个代码怎用?
Dim s As String = e.Form.Controls("ComboBox表").BindingField
Dim p As String = e.Form.Controls("CheckedComboBox列").BindingField
e.Form.Controls("FileManager1").BindingField = s & “.” & p

在ComboBox表控件上加入此代码?

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


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

dim 表名 as string = “ComboBox控件选择而定的表名
dim 列名 as string = “ComboBox控件选择而定的列名
e.Form.Controls("TextBox1").BindingField = 表名 & “.” & 列名

这个代码怎用?改为
 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:显示某表某列_202211030004.zip

Dim s As String = e.Form.Controls("ComboBox表").BindingField
Dim p As String = e.Form.Controls("CheckedComboBox列").BindingField
e.Form.Controls("FileManager1").BindingField = s & “.” & p

在ComboBox表控件上加入此代码?

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


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

Dim s As String = e.Form.Controls("ComboBox表").text
Dim p As String = e.Form.Controls("CheckedComboBox列").text

另外注意,一个FileManager只能绑定一个列,所以"CheckedComboBox列"如果勾选多个是不行的

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