For Each a对账品名2 As String In dt.getvalues("对账品名", "", "对账品名 Desc")
a筛选统计02 = a筛选统计02 & "<a tyle='width:100%;height:50px;float: left;'><input type='checkbox' name='bws_' id='bws_' value = '" & a对账品名2 & "' >" & a对账品名2 & "</a>"
Next
Dim s1 As String
For Each key As String In e.PostValues.Keys
If key Like "*bws_*" Then
s1 = s1 & ",'" & key.split("_")(1) & "'"
End If
Next
s1 = s1.trim(",")
wb.InsertHTML("", s1)
显示勾选的数据