With wb.AddInputGroup("form1","ipg1","人数")
With .AddInput("rs","人数","number")
.Value = 1 (这里默认等于1,根据选择的人数,变化)
End With
End With
Dim a As Integer = 1
With wb.AddInputGroup("form1","ipg2","录入")
For Each dr As DataRow In dt.DataRows
With .AddInput("kz" & a ,"可录入数","number")
.Value = dr("数")
End With
.AddInput("dr("名称")","名称","text")
.AddInput("dr("编号")","数量","number").Attribute = " o ncha nge='xx()' ”事件调用
a = a +1
Next
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btnok","确定")
End With
wb.AppendHTML("<script src='xx.js'></script>") '引入脚本文件
麻烦版主,看看这个js代码如何写。 ID= dr(“编号”)的输入框,录入数值时,判断。 dr(“编号”) 要小于等于 ”kz“ & q (也就是dr(“数”))/ rs(标蓝的)
[此贴子已经被作者于2020/4/13 8:09:20编辑过]