| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 移动版后台加载 (http://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") |
| -- 作者：有点甜 -- 发布时间：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") |