Foxtable(狐表)用户栏目专家坐堂 → 有没有办法得到 {"函数名","代码"} 这样的数据呢?


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

主题:有没有办法得到 {"函数名","代码"} 这样的数据呢?

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/2/24 10:22:00 [显示全部帖子]

参考:http://www.foxtable.com/mobilehelp/topics/0140.htm

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/2/24 10:53:00 [显示全部帖子]

Dim s As String
Dim jo As new jobject
For Each r as row in Tables("内部函数").rows
    jo(r
("内部函数")) = r("代码")

Next
output.show(jo.Tostring())

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/2/24 11:26:00 [显示全部帖子]

jo(cstr(r("内部函数"))) = cstr(r("代码"))

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/2/24 13:39:00 [显示全部帖子]

Dim s As String
Dim jo As new jobject
jo(Tables("内部函数").cols(0).name) = Tables("内部函数").cols(1).name
output.show(jo.Tostring())

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/2/24 15:01:00 [显示全部帖子]

没看懂到想表达意思

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/2/24 16:39:00 [显示全部帖子]

还是没看懂,请截图举例说明,然后给出需要的结果说明

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/2/24 16:53:00 [显示全部帖子]

输出结果还是没看懂,请举例具体数据说明

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/2/24 20:33:00 [显示全部帖子]

还不如另外拿个表A这样的表结构说明还好,什么函数名,代码,让人产生误会,也和josn没有半毛钱的关系。就是把所有列名合并为一个字符串是吧

dim s as string
For Each r As Col In Tables("内部函数").cols
     s = s & "," & r.name
Next
msgbox(s)

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/2/25 8:28:00 [显示全部帖子]

Dim s As String
For Each r As Col In Tables("内部函数").cols
    output.show(r.name)
    s = s & """" & r.name & ""","
Next
    s= s.TrimEnd(",")
    s="{" & s & "}"
output.show(s)

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/2/25 9:08:00 [显示全部帖子]

提示很明显了字符串不能赋值为数组。

如果要取所有列,直接遍历表格不就行了!还要先遍历表格,把列转换为字符串,再从字符串里遍历列名,这算是吃饱了撑的吗?!

 回到顶部
总数 14 1 2 下一页