以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]某列的值等于其他列内容不为空的列名和内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66641)
--  作者：ymjr2011
--  发布时间：2015/4/11 8:31:00
--  [求助]某列的值等于其他列内容不为空的列名和内容

如表A，有A,B,C,D四列，,A,B,C的值分别为1，2，3，D列的内容等于 A1，B2,C3  中间用逗号隔，请问怎么写，是整个表的
--  作者：Bin
--  发布时间：2015/4/11 8:37:00
--  
表达式列,设置表达式

\'A\'+[A]+\',B\' + [B] + \',C\'+[C]
--  作者：ymjr2011
--  发布时间：2015/4/11 8:38:00
--  
BIN大，列太多，我上只是举例，所以想用代码完成，麻烦了
--  作者：ymjr2011
--  发布时间：2015/4/11 8:47:00
--  
顶起来不能沉
--  作者：Bin
--  发布时间：2015/4/11 8:58:00
--  
datacolchanged
if e.datacol.name <> "D" then
dim s as string
for each c as col in  tables(X).cols
   if c.name <> "D" then  \'除开D列不相加
      s = s & c.name & e.datarow(c.name) & "," 
   end if
next
 e.datarow("D")=s.trim(",")
end if
--  作者：ymjr2011
--  发布时间：2015/4/11 9:21:00
--  
谢谢