以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  如何获得易表内所有表所有列的列名  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=21961)
--  作者：Egei
--  发布时间：2012/9/20 15:07:00
--  如何获得易表内所有表所有列的列名
如何自动获得易表内所有表所有列的列名，
--  作者：lyang70
--  发布时间：2012/9/20 16:57:00
--  

1、表名：

 

ListGrids

列出当前文件的所有表名，表名之间用符号“|”隔开。
没有参数，例如：ListGrids()

 

 

2、列名：

 

ListCols

列出指定表中的所有列名，列名之间用符号“|”隔开。

例如：
ListCols("结存")
列出结存表的所有列名。

 

 

 

——至于你所说的“自动”不明白如何自动法，楼主可以根据上面两个命令自行设置。

[此贴子已经被作者于2012-9-20 16:58:34编辑过]
--  作者：wjq1072
--  发布时间：2012/9/20 19:06:00
--  

窗口设置一个标签：“显示系统结构信息”；
设置按钮公式：

SetLabel("显示系统结构信息",Text(Substitute(Substitute(Text(Eval("""\\""+"""+Substitute(Substitute(Eval("Substitute(""|@|"",""|"","""+Substitute(ListGrids(),"|",""")+""|""+Substitute(""|@|"",""|"",""")+""")"),"@","：""+ListCols("""),"|",""")+""\\""+""")+""")")),"\\",Char(13)),"|","、")))
--  作者：wjq1072
--  发布时间：2012/9/20 22:19:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:系统结构信息.egd
--  作者：Egei
--  发布时间：2012/9/21 14:28:00
--  

谢谢  楼上老师 每次都是你帮我解决问题
--  作者：小刚
--  发布时间：2012/9/21 14:38:00
--  
wjq1072老师和lyang70老师，都是不错的，有问必答，非常感谢！
--  作者：Egei
--  发布时间：2012/9/21 21:27:00
--  

Eval("RemoveGrid(""结构信息"")

And

CreateGrid(""结构信息"","""+Substitute(ListGrids(),"|",""",0,""")+""",0)")

And

AddRows("结构信息",Eval("Max(["+Substitute(ListGrids(),"|","!Cols],[")+"!Cols])")-8)

And

Eval("EvalFor(""结构信息"","""+Substitute(Substitute(Eval("Substitute(""|@|"",""|"","""+Substitute(ListGrids(),"|",""")+""|""+Substitute(""|@|"",""|"",""")+""")"),"@",""",""Eval(""""Split(""""""""""""+ListCols("""""),"|",""""")+"""""""""""",""""""""|"""""""",Row)"""")"")

And

EvalFor(""结构信息"",""")+""""")+"""""""""""",""""""""|"""""""",Row)"""")"")")

And

OpenGrid(Grids)
--  作者：wjq1072
--  发布时间：2012/9/21 21:33:00
--  

Eval("RemoveGrid(""结构信息"") And CreateGrid(""结构信息"","""+Substitute(ListGrids(),"|",""",0,""")+""",0)") And


AddRows("结构信息",Eval("Max(["+Substitute(ListGrids(),"|","!Cols],[")+"!Cols])")-8) And


Eval("EvalFor(""结构信息"","""+Substitute(Substitute(Eval("Substitute(""|@|"",""|"","""+Substitute(ListGrids(),"|",""")+""|""+Substitute(""|@|"",""|"",""")+""")"),"@",""",""Eval(""""Split(""""""""""""+ListCols("""""),"|",""""")+"""""""""""",""""""""|"""""""",Row)"""")"") And EvalFor(""结构信息"",""")+""""")+"""""""""""",""""""""|"""""""",Row)"""")"")") And


OpenGrid(Grids)
--  作者：Egei
--  发布时间：2012/9/21 21:50:00
--  

我要增加一行 表名行 这样写怎么没有效果呀

addrow(""结构信息"","""+Substitute(ListGrids(),"|",",")+""","""+Substitute(ListGrids(),"|",""",""")+"""")

 

 

"""结构信息"+""","+""""+Substitute(ListGrids(),"|",",")+""","""+Substitute(ListGrids(),"|",""",""")+""""

[此贴子已经被作者于2012-9-21 22:03:39编辑过]
--  作者：wjq1072
--  发布时间：2012/9/22 10:13:00
--  

“我要增加一行 表名行 这样写怎么没有效果呀”

不懂什么意思啊？