| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助] 新版本问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=174316) |
| -- 作者：zcgmxf -- 发布时间：2022/1/10 22:00:00 -- [求助] 新版本问题 老师，以下代码在新版本怎么提示错误？这是论坛示例 左导航右导航里面左导航窗口生成 "nav" 函数的代码,在新版本执行提示：找不到自定义函数 “nav” \'生成编译函数 Dim code As String code= " dim name as string = args(0) " & vbcrlf code= code & " Select Case name " & vbcrlf For Each dr As DataRow In DataTables("导航").DataRows If dr("代码")> "" Then code = code & " case " & """" & dr("名称") & """" & vbcrlf code = code & dr("代码") & vbcrlf End If Next code= code & "end Select " & vbcrlf Functions.Remove("nav") Functions.Add("nav",code) Functions.Complie |
| -- 作者：有点蓝 -- 发布时间：2022/1/10 22:02:00 -- 新版本取消了动态编译功能，不能这样用了。 1、用回旧版本 2、把代码放到自定义函数里使用
|
| -- 作者：zcgmxf -- 发布时间：2022/1/10 22:16:00 -- 有点蓝老师，该怎样写，放到自定义函数双击没反应。谢谢！ Dim code As String code= " dim name as string = args(0) " & vbcrlf code= code & " Select Case name " & vbcrlf For Each dr As DataRow In DataTables("导航").DataRows If dr("代码")> "" Then code = code & " case " & """" & dr("名称") & """" & vbcrlf code = code & dr("代码") & vbcrlf End If Next code= code & "end Select " & vbcrlf |
| -- 作者：有点蓝 -- 发布时间：2022/1/10 22:24:00 -- 到命令窗口执行 Dim code As String code= " dim name as string = args(0) " & vbcrlf code= code & " Select Case name " & vbcrlf For Each dr As DataRow In DataTables("导航").DataRows If dr("代码")> "" Then code = code & " case " & """" & dr("名称") & """" & vbcrlf code = code & dr("代码") & vbcrlf End If Next code= code & "end Select " & vbcrlf output.show(code) 执行后的结果复制到自定义函数里
|
| -- 作者：zcgmxf -- 发布时间：2022/1/10 22:28:00 -- 谢谢！ |