wb.AddForm("","form3","tongjibiao223jg.htm") '表单显示在第一个页面
With wb.AddCheckGroup("form3","卡号","请选择要显示的卡号")
For Each dr As DataRow In DataTables("卡号设置").sqlSelect("账套 = '" & e.PostValues("zhangtao") & "' and 币种 = '人民币'")
.Add(dr("卡号"),dr("卡号")).Attribute = "onchecked=''"
Next
End With
wb.AppendHTML("<div id='p3' ></div>") '插入一个div,用于显示服务器返回的页面
wb.AppendHTML("<script src='./lib/hxrjz.js'></script>") '引入脚本文件
此主题相关图片如下:微信图片_20200606120630.jpg