比如
Select Case e.Path
Case "table.htm"
Dim wb As New WeUI
With wb.AddTable("","Table1")
.Attribute = "onclick='document.getElementById(""p1"").innerHTML = table1.rows[table1.rowSel].cells[0].innerHTML'"
.CreateFromDataTable(DataTables("入库"))
End With
wb.AppendHTML("<div id='p1' style='margin:0.5em'></div>")
e.WriteString(wb.Build)
End Select
看备注是第几列,相应改上面 的红色字符