易表在线答疑 → 技术与交流 → 用户社区 → 如何获得易表内所有表所有列的列名


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

主题：如何获得易表内所有表所有列的列名
帅哥哟，离线，有人找我吗？
Egei
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：238 积分：882 威望：0 精华：0 注册：2012/4/11 10:40:00 		如何获得易表内所有表所有列的列名  发帖心情 Post By：2012/9/20 15:07:00 [只看该作者]

如何自动获得易表内所有表所有列的列名，

 回到顶部
帅哥哟，离线，有人找我吗？
lyang70
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：5115 积分：862 威望：0 精华：0 注册：2006/8/15 16:57:00 		  发帖心情 Post By：2012/9/20 16:57:00 [只看该作者]

1、表名：

 

ListGrids

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

 

 

2、列名：

 

ListCols

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

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

 

 

 

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

[此贴子已经被作者于2012-9-20 16:58:34编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wjq1072
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：16190 积分：125850 威望：1 精华：0 注册：2006/8/12 12:29:00 		  发帖心情 Post By：2012/9/20 19:06:00 [只看该作者]

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

SetLabel("显示系统结构信息",Text(Substitute(Substitute(Text(Eval("""\""+"""+Substitute(Substitute(Eval("Substitute(""|@|"",""|"","""+Substitute(ListGrids(),"|",""")+""|""+Substitute(""|@|"",""|"",""")+""")"),"@","：""+ListCols("""),"|",""")+""\""+""")+""")")),"\",Char(13)),"|","、")))
 回到顶部
帅哥哟，离线，有人找我吗？
wjq1072
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：16190 积分：125850 威望：1 精华：0 注册：2006/8/12 12:29:00 		  发帖心情 Post By：2012/9/20 22:19:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:系统结构信息.egd
 回到顶部
帅哥哟，离线，有人找我吗？
Egei
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：238 积分：882 威望：0 精华：0 注册：2012/4/11 10:40:00 		  发帖心情 Post By：2012/9/21 14:28:00 [只看该作者]

谢谢  楼上老师 每次都是你帮我解决问题
 回到顶部
帅哥哟，离线，有人找我吗？
小刚
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：96 积分：734 威望：0 精华：0 注册：2012/9/2 18:42:00 		  发帖心情 Post By：2012/9/21 14:38:00 [只看该作者]

wjq1072老师和lyang70老师，都是不错的，有问必答，非常感谢！

 回到顶部
帅哥哟，离线，有人找我吗？
Egei
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：238 积分：882 威望：0 精华：0 注册：2012/4/11 10:40:00 		  发帖心情 Post By：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
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：16190 积分：125850 威望：1 精华：0 注册：2006/8/12 12:29:00 		  发帖心情 Post By：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
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：238 积分：882 威望：0 精华：0 注册：2012/4/11 10:40:00 		  发帖心情 Post By：2012/9/21 21:50:00 [只看该作者]

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

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

 

 

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

[此贴子已经被作者于2012-9-21 22:03:39编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wjq1072
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：16190 积分：125850 威望：1 精华：0 注册：2006/8/12 12:29:00 		  发帖心情 Post By：2012/9/22 10:13:00 [只看该作者]

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

不懂什么意思啊？
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright ©2002 - 2005 egrid2000.com   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询