Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI '定义一个基于weui框架的网页生成器
Select Case e.Path
Case "lsrz1.htm"
Dim bm As String
Dim gw As String
Dim name As String
Dim userid = Functions.Execute("验证函数",e,"lsrz1.htm")
If userid > "" Then
wb.AppendCookie("userid",userid) '将用户名和密码写入cookie
Dim wxdr As DataRow = DataTables("users").SQLFind("userid='" & userid & "'")
If wxdr IsNot Nothing Then
gw = wxdr("position")
name = wxdr("name")
Dim wxdr1 As DataRow = DataTables("departments").SQLFind("id='" & wxdr("department") & "'")
If wxdr1 IsNot Nothing Then
bm= wxdr1("name")
End If
wb.InsertHTML("page2", "<div onclick=""if(pg1.style.display != 'none') {pg1.style.display = 'none'} else {pg1.style.display = 'block'}""><label style='line-height:3'>木作事业部</label></div>")
wb.AddPage("page2","pg1")
For Each dr As DataRow In DataTables("工作日报").sqlSelect("[部门] = '木作事业部'", "", "日期 Desc")
With wb.AddPreview("pg1","pv" & dr("_Identify"),"职员",dr("姓名")&":"&dr("岗位"))
.AddItem("日期",dr("日期"))
.AddItem("今日达成",dr("今日达成"))
.AddItem("明日计划",dr("明日计划"))
.AddItem("营业收入",dr("营业收入"))
End With
Next
有 很多部门 需要一次性读取出来
for each dr as datarow in datatables("工作日报") |
[此贴子已经被作者于2018/3/23 19:52:19编辑过]
加好友 
发短信
Post By：2018/3/23 19:51:00 [只看该作者]
