Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim sb As New StringBuilder
Dim cmd As New SQLCommand
Dim dt As DataTable
*****************
dt = cmd.ExecuteReader
Dim userid = Functions.Execute("order",e)
If userid > "" Then
With wb.AddTable("","Table1")
'按日期顺序列出考勤明细
.CreateFromDataTable(dt,False,"userid ='" & UserId & "'","日期","姓名","日期","星期","t1","t2")
End With
wb.AddForm("","form1","kq.htm")
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1","关闭","button").Attribute=""
End With
wb.AppendHTML("<script src='./lib/close.js'></script>") '引入脚本文件
e.WriteString(wb.Build)
End If
关闭按键没有反应，我的代码没问题吧？
加好友 
发短信
Post By：2018/4/19 15:55:00 [显示全部帖子]
