弹出的 e.postvalues.count 始终是4个,没有蓝色字体部分。
wb.AddForm("","form1","GSProductEdit.htm")
With wb.AddInputGroup("form1","ipg1","销售终端>报一笔")
With .AddInput("zdmc","终端名称","text")
.value = dr("终端名称")
End With
With .AddInput("cplb","产品类别","text")
.value = dr("产品类别")
End With
With .AddInput("cpgg","产品规格","text")
.value = dr("产品规格")
End With
With .AddInput("cpdj","产品单价","number")
.value = dr("产品单价")
.Min = "0.00"
.Step = "0.01"
End With
wb.InsertHTML("<input name='flag' id='flag' value='" & e.GetValues("deloid") & "' hidden>")
End With