- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 网页数据加载 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136534)
-- 发布时间：2019/6/15 10:52:00
-- 网页数据加载
此主题相关图片如下：微信截图_20190615104801.png
请问老师，这样的网页加载数据库上的数据要怎样编写代码？
-- 发布时间：2019/6/15 11:01:00
--
参考：http://www.foxtable.com/mobilehelp/scr/0136.htm
-- 发布时间：2019/6/15 11:05:00
--
老师，多行数据怎么加载？
-- 发布时间：2019/6/15 11:25:00
--
对于1楼的情况，可以使用多个表格，每个表显示一行的记录，类似
Select Case e.Path
Case "list.htm"
Dim wb As New WeUI
For i As Integer = 0 To Tables("表A").Rows.Count - 1
Dim r As Row = Tables("表A").Rows(i)
With wb.AddTable("","Table" & i )
.head.AddRow("序号","姓名","年龄","电话")
With .body.AddRow
.AddCell(i,"rowspan=3")
.AddCell(r("姓名"))
.Addcell(r("年龄"))
.Addcell(r("电话"))
End With
With .body.AddRow()
.AddCell("100-130万.....","colspan=\'4\'")
End With
End With
Next
e.WriteString(wb.Build)
End Select
[此贴子已经被作者于2019/6/15 14:12:11编辑过]
-- 发布时间：2019/6/15 12:25:00
--
此主题相关图片如下：微信截图_20190615122431.png
Select Case e.Path
Case "list.htm"
Dim wb As New WeUI
For i As Integer = 0 To Tables("客户信息表").Rows.Count - 1
Dim r As Row = Tables("客户信息表").Rows(i)
With wb.AddTable("","Table1")
.head.AddRow("序号","客户名称","经纪人","负责人")
With .body.AddRow
\'.AddCell(i,"rowspan=3")
.AddCell(r("客户名称"))
.Addcell(r("经纪人"))
.Addcell(r("负责人"))
End With
With .body.AddRow()
.AddCell("100-130万.....","colspan=\'4\'")
End With
End With
Next
e.WriteString(wb.Build)
End Select
提示这个错误是什么问题？
-- 发布时间：2019/6/15 14:12:00
--
With wb.AddTable("","Table" & i)