Dim kwh As String
For Each key As String In e.PostValues.Keys
messagebox.show(key & e.PostValues(key) )
Next
If e.GetValues.ContainsKey("deldid") Then
DataTables("库位明细").SQLDeleteFor("_Identify = " & e.GetValues("deldid"))
End If
If e.GetValues.ContainsKey("kwh") Then
kwh=e.GetValues("kwh")
wb.AddForm("","form1","kw.htm")
With wb.AddInputGroup("form1","ipg1","库位信息" )
With .AddInput("kwh","库位:","text")
.value=kwh
.Readonly= True
End With
With .AddInputCell("ic1")
.AddLabel("产品编号","产品编号:",0)
.AddInput("number","text",1)
.AddVcodeButton("scan","扫码",2) '增加二维码扫描按钮,2表示显示在右边
End With
With .AddInput("数量","数量:","number")
End With
With wb.AddPanelGroup("","pg2","货架明细")
For Each dr As DataRow In DataTables("库位明细").SQLSelect("库位号='" & e.GetValues("kwh") & "'")
With .Add(dr("_identify"), dr("产品编号") & " : " & dr("产品名称"), "数量:" & dr("数量") & " 采集人:" & dr("采集人") & " 采集时间:" & dr("采集时间"),"./images/商品查询.png","kwdetails.htm?id=" & dr("_identify") )
End With
Next
End With
End With
End If
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "添加", "submit").FormAction="kw.htm?kwh=" & kwh
End With
使用FormAction执行这段代码的时候 发现post值里没有库位(kwh)这个值
如果改成
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "添加", "submit")
End With
是正常的,求指点迷津
加好友 
发短信
Post By：2021/6/2 20:43:00 [只看该作者]
