填加新记录使用的是如下方法:
Select
Case e.Path
Case
"test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","动态列表")
With .AddSelect("xh","型号","|" & DataTables("表A").GetComboListString("型号"))
.Attribute = """
End
With
With .AddSelect("gg","规格","")
.Attribute = """
End
With
.AddSelect("ys","颜色","")
End
With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End
With
e.WriteString(wb.Build) '生成网页
Case "getProducts.htm"
Dim vals As
String
If e.PostValues.Count = 1
Then
vals = "|" & DataTables("表A").GetComboListString("规格","型号='" & e.PostValues("xh") & "'")
ElseIf e.PostValues.Count = 2
Then
Dim Filter As
String = "型号='" & e.PostValues("xh") & "' And 规格='" & e.PostValues("gg") & "'"
vals = "|" & DataTables("表A").GetComboListString("颜色", Filter)
End
If
e.WriteString(vals)
End
Select
那么编辑该记录时如何获取到列表输入框的值?怎么写