- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 动态函数请教 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179390)
-- 发布时间：2022/8/21 9:49:00
-- 动态函数请教
这个是怎么实现的，原来想用动态函数实现，可惜官方回复已经取消了
此主题相关图片如下：微信图片_20220821094737.jpg
-- 发布时间：2022/8/21 21:05:00
--
Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","登录")
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","登录")
for each dr as datarow in datatables("表A").select("页面名称=‘test’","字段顺序")
select case dr("字段类型")
case “字符”
.AddInput(dr("字段名"),dr("字段名"),"text")
.AddInput(dr("字段名"),dr("字段名"),"text")
case "日期事件"
.AddInput(dr("字段名"),dr("字段名"),"date")
……
next
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) \'生成网页
End Select
next
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) \'生成网页
End Select
-- 发布时间：2022/8/22 19:11:00
--
非常感谢