Foxtable(狐表)用户栏目专家坐堂 → 读取数据替换问题


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

主题:读取数据替换问题

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


加好友 发短信
等级:幼狐 帖子:171 积分:3223 威望:0 精华:0 注册:2018/3/5 14:39:00
读取数据替换问题  发帖心情 Post By:2020/2/13 23:13:00 [只看该作者]

Select Case e.Path
    Case "test.htm"
页面的数据,读取数据表中数据到这里
End Select
e.WriteString(wb.Build)

这样的方式可不可以实现,怎么实现?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/14 10:09:00 [只看该作者]

显示表格数据?参考:
http://www.foxtable.com/mobilehelp/topics/0067.htm
http://www.foxtable.com/mobilehelp/topics/0074.htm

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


加好友 发短信
等级:幼狐 帖子:171 积分:3223 威望:0 精华:0 注册:2018/3/5 14:39:00
  发帖心情 Post By:2020/2/14 12:37:00 [只看该作者]

不是,可能我没有表述清楚,是原本写好的代码,我放到数据库里,这样修改代码的时候直接修改数据库数据就可以了
比如:
With wb.AddTable("","Table1")
     
.BooleanSymbol= "√×"
    .CreateFromTable(Tables(
"
订单"))
End With

这段我放到数据库中,怎么把这段显示出来
[此贴子已经被作者于2020/2/14 13:02:28编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/14 13:30:00 [只看该作者]

使用动态函数:http://www.foxtable.com/webhelp/topics/1487.htm

Dim Code As string = "某单元格保存的代码"
Functions.Add(
"某名称",Code)
Functions.Complie()

调用此函数:

Functions.Execute("某名称")


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


加好友 发短信
等级:幼狐 帖子:171 积分:3223 威望:0 精华:0 注册:2018/3/5 14:39:00
  发帖心情 Post By:2020/2/14 22:16:00 [只看该作者]

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2019.12.17.18
错误所在事件:自定义函数test
详细错误信息:
调用的目标发生了异常。
索引超出了数组界限。

函数代码:
Dim e As RequestEventArgs = args(0)
Select Case e.Path
    Case "test.htm"
        Dim r As DataRow = DataTables("设置").SQLFind("页面 = 'test'")
        Dim Code As String = r("代码")
        Functions.remove("test")
        Functions.Add("test",Code)
        Functions.Complie()  '重新编译
        Functions.Execute("test")  '调用此函数
End Select

代码只写了一句话
e.WriteString("OK")

求解?

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/14 22:18:00 [只看该作者]

Dim e As RequestEventArgs = args(0)
Select Case e.Path
    Case "test.htm"
        Dim r As DataRow = DataTables("设置").SQLFind("页面 = 'test'")
        Dim Code As String = r("代码")
        Functions.remove("test")
        Functions.Add("test",Code)
        Functions.Complie()  '重新编译
        Functions.Execute("test",e)  '调用此函数
End Select

代码至少2句
Dim e As RequestEventArgs = args(0)
e.WriteString("OK")

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


加好友 发短信
等级:幼狐 帖子:171 积分:3223 威望:0 精华:0 注册:2018/3/5 14:39:00
  发帖心情 Post By:2020/2/14 22:48:00 [只看该作者]

实现了,谢谢老师,点赞!!!

 回到顶部