- 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=98771)
-- 发布时间：2017/4/6 19:31:00
-- 集合遍历与页面结合测试，页面正常，但是表达式内容未显示
同标题
Select Case e.Path
Case "test.htm"
Dim wb As New weui
Dim drs As List(of DataRow) = DataTables("会员资料").SQLSelect("[性别] = \'女\'",4,"注册日期 DESC")
For Each dr As DataRow In drs
Dim bianh As String = dr("会员编号") \'定义,年龄
Dim nianl As String = dr("年龄") \'定义,年龄
Dim xuel As String = dr("学历") \'定义,学历
Dim huny As String = dr("婚姻状况") \'定义,婚姻状况
Dim suozqx As String = dr("所在区县") \'定义,所在区县
Dim suozshi As String = dr("所在市") \'定义,所在市
Dim suozs As String = dr("所在省") \'定义,所在省
wb.AddForm("","form" & bianh,"test.htm")
With wb.AddInputGroup("form" & bianh,"ipg" & bianh)
.AddInput("xm" & bianh,"年龄",nianl & "岁") ’页面生成了，但是这2行数字没有显示，也没有错误提示
.AddInput("pw" & bianh,"城市",suozqx & ">" & suozshi & ">" & suozs)
End With
With wb.AddButtonGroup("form" & bianh,"btg" & bianh,False)
.Add("btn1" & bianh, "查看TA的资料", "submit")
End With
Next
e.WriteString(wb.Build) \'生成网页
End Select
此主题相关图片如下：qq图片201704061409555555.png
[此贴子已经被作者于2017/4/6 19:33:33编辑过]
-- 发布时间：2017/4/6 19:38:00
--
设置值，是用value的
http://www.foxtable.com/mobilehelp/scr/0045.htm