- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 页面上选择账套， 生成对应卡号复选列表 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=150732)
-- 发布时间：2020/6/5 18:56:00
-- 页面上选择账套， 生成对应卡号复选列表
老师，有个 卡号列表 ，列：账套，卡号 （一个账套会有多个卡号）想要 选择账套的时候，在下方显示这些卡号的复选列表要怎么弄呢？
看了ajax的发送部分表单数据 submitAjaxFileds
document.getElementById("postcode").value=xxx
js代码是将返回值赋值给表单字段
那我们是要增加表单字段
.Add("bw2","Google
Chorme")
能怎么弄呢？
Dim e As RequestEventArgs = args(0)
Dim zhangtao As String = args(1)
Dim wb As New WeUI
wb.title = "出纳日记账-收支明细表"
wb.AddForm("","form1","tongjibiao2jg.htm")
With wb.AddInputGroup("form1","ipg1","请选择统计条件")
.AddSelect("zhangtao","选择账套",zhangtao)
With .AddInput("d1","开始日期","date")
Dim d As Date
Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
d = y & "-" & m & "-1"
.Value = Format(d,"yyyy-MM-dd")
End With
With .AddInput("d2","结束时间","date")
.Value = Format(Date.Today,"yyyy-MM-dd")
End With
End With
With wb.AddCheckGroup("form1","卡号","请选择卡号") \'怎么才能取到这个返回值
For Each dr As DataRow In DataTables("卡号设置").sqlSelect("账套 = \'" & zhangtao & "\' and 币种 = \'人民币\'")
.Add(dr("卡号"),dr("卡号"))
Next
End With
此主题相关图片如下：微信图片_20200605185151.jpg
[此贴子已经被作者于2020/6/5 19:00:09编辑过]
-- 发布时间：2020/6/6 10:07:00
--
With wb.AddCheckGroup("form1","卡号","请选择卡号") \'怎么才能取到这个返回值
For Each dr As DataRow In DataTables("卡号设置").sqlSelect("账套 = \'" & zhangtao & "\' and 币种 = \'人民币\'")
.Add("卡号" & dr("卡号"),dr("卡号"))
Next
End With
接收：
For Each key As String In e.PostValues.Keys
if key like "卡号*"
msgbox(key & ":" & e.PostValues(key))
end if
Next
-- 发布时间：2020/6/6 10:53:00
--
谢谢蓝版，已经解决