以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  请教列名称问题,困绕了很长时间!  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=21531)

--  作者:chenxiquan
--  发布时间:2012/7/11 9:25:00
--  请教列名称问题,困绕了很长时间!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:列abc.egd


--  作者:wjq1072
--  发布时间:2012/7/11 10:03:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:7788.egd


--  作者:chenxiquan
--  发布时间:2012/7/11 10:09:00
--  

太感谢您了!就是要这个效果!

 

但是这个公式有点难啊,我还没能理解!

Eval(mid(Rept("And DeleteCol(Grid,3)",Cols-2),5)) And Eval("AddCol(Grid,"""+Substitute(ListFor("表1基础档案","产品名称",2),"|",""",0, True ) And AddCol(Grid,""")+""",0, True )")

[此贴子已经被作者于2012-7-11 10:19:48编辑过]

--  作者:wjq1072
--  发布时间:2012/7/11 10:37:00
--  

1、Eval(mid(Rept("And DeleteCol(Grid,3)",Cols-2),5))

删除第二列后的所有列

2、创建新列。依据为"表1基础档案"中的"产品名称"列内容。


--  作者:chenxiquan
--  发布时间:2012/7/11 11:13:00
--  

分解开来看,还是理解不了,我水平太有限了,还是麻烦老师帮忙讲解一下

DeleteCol(Grid,3)这个是删除表中第三列吗

Rept("And DeleteCol(Grid,3)",Cols-2)这里尤其"And DeleteCol(Grid,3)",是要重复Cols-2次字符?这个字符是什么?

mid(Rept("And DeleteCol(Grid,3)",Cols-2),5)从第六个字符起返回字符?返回内容是什么

Eval(mid(Rept("And DeleteCol(Grid,3)",Cols-2),5)) 这里就是Eval公式在这里起什么作用?

 

"""+Substitute(ListFor("表1基础档案","产品名称",2),"|","""这是什么意思?

And AddCol中""")+"""又是什么?

 

[此贴子已经被作者于2012-7-11 11:16:59编辑过]

--  作者:wjq1072
--  发布时间:2012/7/11 11:21:00
--  
请搜索、参考论坛中的Eval函数。有关Eval函数不是一二句话能够说清楚的,慢慢来吧!
--  作者:chenxiquan
--  发布时间:2012/7/11 11:34:00
--  

革命尚未成功,本人仍需努力!!


--  作者:chenxiquan
--  发布时间:2012/7/12 11:19:00
--  

wjq1072老师您好!

按您这个公式,在表1中增加后,表2会自动增加,但当表1产品名称减少或删除时,表2列不能自动删除更新,表1某产品名称修改时,表2也会增加一列,同时修改前的产品名称在表2中的列没删除,请问如何解决这两个问题?还有就是在表2中新增的列名称是左对齐的,有没有办法在公式中使列名称也自动居中? 

[此贴子已经被作者于2012-7-12 11:26:01编辑过]

--  作者:wjq1072
--  发布时间:2012/7/12 11:34:00
--  

“当表1产品名称减少或删除时,表2列不能自动删除更新”这个问题不存在!

“居中”问题可以这样处理:

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:7788.egd


--  作者:lyjzyq
--  发布时间:2012/7/15 20:47:00
--  
我认为 wjq1072的回答可以增加或减少列,但是表2的列名是改了,列的内容却没了,这样可能没有什么意义。我根据楼主的意思修改了方法,请看看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:88888.egd