Dim e As RequestEventArgs = args(0) 'RequestEventArgs是HttpRequest事件的e参数类型。
Dim wb As New weui
Dim jo As JObject = JObject.Parse(e.PlainText)
Dim s As String = jo("value").ToString
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "sel ect 、 TOP 10 * from {用户表} where 姓名 like '%" & s & "&' or 昵称 like '%" & s & "%'"
Dim dt As DataTable = cmd.ExecuteReader
Dim nms() As String = {"", "部门", "组别", "角色", "姓名", "昵称", "状态", "选择"}
With wb.AddTable("", "table1")
.Attribute = "style='text-align: center;'" '表格文字居中显示
.Alternate = 2
.RowHead = 1
.Head.AddRow(nms)
Dim cnt As Integer = 0
For Each r As DataRow In dt.Select("", "部门,组别,角色")
With .Body.AddRow
cnt = cnt + 1
.AddCell(cnt)
.AddCell(r("部门"))
.AddCell(r("组别"))
.AddCell(r("角色"))
.AddCell(r("姓名"))
.AddCell(r("昵称"))
.AddCell(r("状态"))
.AddCell("<a >选择</a>")
.Primarykey = r("sysid")
End With
Next
End With
wb.AppendHTML("<script src='./lib/控件赋值.js'></script>") '引入脚本文件
e.WriteString(wb.Buildhtml("table1"))
这是插入p1的页面代码
加好友 
发短信
Post By：2022/11/25 20:31:00 [只看该作者]
此主题相关图片如下：1669379564123.jpg
