| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 显示勾选的数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193327) |
| -- 作者：qazlinle6 -- 发布时间：2024/9/5 15:41:00 -- 显示勾选的数据 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) 显示勾选的数据 |
| -- 作者：qazlinle6 -- 发布时间：2024/9/5 17:41:00 -- 己解决 |