Foxtable(狐表)用户栏目专家坐堂 → 求label读指定表数据当前行指定列数据代码


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

主题:求label读指定表数据当前行指定列数据代码

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


加好友 发短信
等级:幼狐 帖子:141 积分:1091 威望:0 精华:0 注册:2022/5/17 22:25:00
求label读指定表数据当前行指定列数据代码  发帖心情 Post By:2023/2/6 11:22:00 [只看该作者]

蓝老师:在窗口用label读取表当前行指定列的数值 代码如何写?帮助在哪里看?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

e.form.controls("label1").text = tables("表A").current("某某列")

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


加好友 发短信
等级:幼狐 帖子:141 积分:1091 威望:0 精华:0 注册:2022/5/17 22:25:00
  发帖心情 Post By:2023/2/6 11:38:00 [只看该作者]

谢谢老师。

如果要合并多列数据,这样写就太笨拙了,e.form.controls("label1").text = Tables("表A").current("第一列") & Tables("表A").current("第二列")

有简单写法么?


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

dim r as row = Tables("表A").current
if r isnot nothing then
e.form.controls("label1").text = r("第一列") & r("第二列")
end if

或者

dim r as row = Tables("表A").current
if r isnot nothing then
dim ss as string
for each s as string in {"第一列","第二列","第n列",...............}
ss = ss &  r(s) 
next
e.form.controls("label1").text = ss
end if

 回到顶部