同标题
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编辑过]
加好友 
发短信
Post By：2017/4/6 19:31:00 [只看该作者]
