下面代码只能显示服务器当前显示的数据 我想直接数据库获取数据代码要怎么改呢
Dim wb As New WeUI '定义一个基于weui框架的网页生成器
Dim e As RequestEventArgs = args(0)
For Each dr As DataRow In DataTables("财务流水").Select("","日期 Desc")
With wb.AddPreview("","pv" & dr("_Identify"),"经手人",dr("经手人")&"出:"&dr("支出")&"入:"&dr("收入"))
.AddItem("科目",dr("科目"))
.AddItem("收入",dr("收入"))
.AddItem("支出",dr("支出"))
.AddItem("摘要",dr("摘要"))
.AddItem("附页",dr("附页"))
.AddItem("流水编号", dr("流水编号"))
.AddItem("说明", dr("说明"))
.Addbutton("点赞", "", 1, "")
End With
wb.AppendHTML("<br/>")
Next
e.WriteString(wb.Build)