以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求label读指定表数据当前行指定列数据代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185134)
--  作者：min-fox
--  发布时间：2023/2/6 11:22:00
--  求label读指定表数据当前行指定列数据代码
蓝老师：在窗口用label读取表当前行指定列的数值 代码如何写？帮助在哪里看？
--  作者：有点蓝
--  发布时间：2023/2/6 11:31:00
--  
e.form.controls("label1").text = tables("表A").current("某某列")
--  作者：min-fox
--  发布时间：2023/2/6 11:38:00
--  

谢谢老师。

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

有简单写法么？
--  作者：有点蓝
--  发布时间：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