[求助]动态函数问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]动态函数问题

共有2356人关注过本帖树形打印复制链接主题：[求助]动态函数问题

lzzhx

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00

[求助]动态函数问题 发帖心情

Post By：2017/6/27 16:23:00 [显示全部帖子]

请教老师，下面的动态函数执行错误，请教如何修改

_XTGJXX是一个公用字典，有值

Functions.remove("xtsz")

dim code as string = ""

for each k as string in _XTGJXX.keys

code = code & k & " = '" & _ZTGJXX(k) & "'" & vbcrlf

code = code & "saveconfigvalue('sz_" & k & "','" & _XTGJXX(k) & "')" & vbcrlf

functions.add("xtsz",code)

functions.complie()

function.execute("xtsz")

编译错误：应为表达式

错误代码： zsjk_Name = 'fjzyywglsjk'

lzzhx

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00

Post By：2017/6/27 16:25:00 [显示全部帖子]

zsjk_Name 是公用代码中定义的变量，目的是根据字典中的值，给与字典键同名的变量赋值

lzzhx

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00

Post By：2017/6/27 16:26:00 [显示全部帖子]

编译错误：应为表达式

错误代码： zsjk_Name = 'fjzyywglsjk'

找不到自定义函数 “xtsz" !

lzzhx

小大 4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00

Post By：2017/6/27 17:19:00 [显示全部帖子]

帮助里的动态函数的例子在第一次执行时正常，再执行时就出错，提示”已添加了具有相同键值的项“

lzzhx

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00

Post By：2017/6/27 17:20:00 [显示全部帖子]

有没有老师给解答一下

lzzhx

小大 6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00

Post By：2017/6/27 18:07:00 [显示全部帖子]

谢谢老师，改为双引号后，我加了个消息框看了一下code的值，第一个循环中值是正常的，但从第二个循环开始，K值等于号后面是一个双引号， _ZTGJXX(k) 跑到下一行了，以后的都这样，最后提示字符串常量必须以双引号结束

在没有改双引号前，这个问题就存在，请老师再看看

Functions.remove("xtsz")

dim code as string = ""

for each k as string in _XTGJXX.keys

code = code & k & " = """ & _ZTGJXX(k) & """" & vbcrlf

code = code & "saveconfigvalue(" & """sz_" & k & """,""" & _XTGJXX(k) & """)" & vbcrlf

messagebox.show(code)

functions.add("xtsz",code)

functions.complie()

function.execute("xtsz")

下一主题 >> << 上一主题

主题：[求助]动态函数问题