Dim e As RequestEventArgs = args(0)
If e.PostValues.Count = 0 Then
Dim dr As DataRow = DataTables("dtbSet").Find("wintbN = '产品编码_主表' and showCols is not null")
Dim sqlcol,cw As String
Dim Cols As New List(of String) '列集合
If dr IsNot Nothing Then
Dim nms As String() = dr("showCols").split("|")
For i As Integer = 0 To nms.Length -1 Step 2
Cols.Add(nms(i))
sqlcol = sqlcol & nms(i) & ","
cw = cw & nms(i+1) & ","
Next
If sqlcol > "" Then
sqlcol = sqlcol.trim(",")
End If
If cw > "" Then
cw = cw.trim(",")
End If
End If
Dim cmd As New SQLCommand
cmd.ConnectionName = Mydata
cmd.CommandText = "SELECT TOP 10 " & sqlcol & " FROM 产品编码 ORDER BY sys_Mdate DESC" '查询最新修改的10行数据
Dim dt As DataTable = cmd.ExecuteReader()
Dim wb As New weui
wb.title = "产品编码"
wb.AddForm("","form1","pcode_table.htm")
wb.AppendHTML("<style>#table2 td{width:" & cw & ";word-break: break-all;} #table2 thead{display:none}</style>",True)
With wb.AddTable("","Table1")
.ColWidth = cw '设置列宽 -->cw是"50,50,60,70,35,80"这样的值
.head.AddRow(Cols)
End With
wb.InsertHTML("","<div id = 'div1' style = 'overflow-y:auto;buttom:20px'>") 'div距离屏幕底部20像素
With wb.AddTable("","Table2")
.CreateFromDataTable(dt,False,"","",Cols)
End With
wb.InsertHTML("","</div>")
With wb.AddButtonGroup("form1","btg1",True) '底部增一个确定按钮
.Add("btn1", "确定","submit")
End With
e.WriteString(wb.Build)
Else
'''''''''
End If
加好友 
发短信
Post By：2020/10/14 19:14:00 [显示全部帖子]
此主题相关图片如下：weixin.jpg
