专家坐堂-移动版后台加载Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  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=114579)

--  作者：yifan3429
--  发布时间：2018/2/9 19:53:00
--  移动版后台加载

下面代码只能显示服务器当前显示的数据我想直接数据库获取数据代码要怎么改呢

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)

--  作者：有点蓝
--  发布时间：2018/2/9 20:38:00
--
For Each dr As DataRow In DataTables("财务流水").SqlSelect("","日期 Desc")

http://www.foxtable.com/webhelp/scr/2900.htm

--  作者：有点甜
--  发布时间：2018/2/10 9:07:00
--
For Each dr As DataRow In DataTables("财务流水").SqlSelect("", "", "日期 Desc")

--  作者：yifan3429
--  发布时间：2018/2/10 10:33:00
--

Dim wb As New WeUI \'定义一个基于weui框架的网页生成器
Dim e As RequestEventArgs = args(0)
Dim u As String = e.cookies("name")
\'Dim s As String = e.cookies("部门")
\'Dim x As String = e.cookies("岗位")
For Each dr As DataRow In DataTables("财务流水").sqlSelect("[经手人] = \'" & U & "\'","日期 Desc") 老师帮我看看 sqlSelect 加入sql 数据就读不出来去掉就可以
   With wb.AddPreview("","pv" & dr("_Identify"),"经手人:",dr("经手人")&"/-出:"&dr("支出")&"/-入:"&dr("收入"))
.AddItem("科目:",dr("科目"))
.AddItem("收入:",dr("收入"))
.AddItem("支出:",dr("支出"))
.AddItem("摘要:",dr("摘要"))
.AddItem("附页:",dr("附页"))
.AddItem("流水编号:", dr("流水编号"))
.AddItem("说明:", dr("说明"))
.AddItem("支出汇总:", DataTables("财务流水").Compute("sum(支出)","经手人=\'" & dr("经手人") & "\'"))
.AddItem("收入汇总:", DataTables("财务流水").Compute("sum(收入)","经手人=\'" & dr("经手人") & "\'"))
.Addbutton("点赞", "", 1, "")
End With
wb.AppendHTML("<br/>")
Next
e.WriteString(wb.Build)

--  作者：有点甜
--  发布时间：2018/2/10 10:34:00
--
改成 For Each dr As DataRow In DataTables("工作日报").Select("[部门] = \'" & s & "\'", "", "日期 Desc")