以文本方式查看主题
- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- e.postValues数据传递请教? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=148738)
|
-- 作者:pyh6918
-- 发布时间:2020/4/14 14:59:00
-- e.postValues数据传递请教?
第6行的“CP”,第7行的“GY”成功的传递给了第14行;用同样的方法第19行的“SF”和第24行的"yzcm"却不能被第39行引用。请老师指教一下!
1 |
Select Case
e.Path |
2 |
Case "addpyh69xg.htm" |
3 |
Dim wb As New WeUI
\'定义一个基于weui框架的网页生成器 |
4 |
wb.AddForm("","form1","addpyh69xg2.htm") |
5 |
With
wb.AddInputGroup("form1","ipg1","注册码查询") |
6 |
.AddSelect("cp","省份","黑龙江|辽宁|吉林") |
7 |
.AddInput("gy","注册码","text") |
8 |
End With |
9 |
With
wb.AddButtonGroup("form1","btg1",True) |
10 |
.Add("btn1","确定","submit") |
11 |
End With |
12 |
e.WriteString(wb.Build) \'生成网页 |
13 |
Case "addpyh69xg2.htm" |
14 |
Dim h As DataRow =
DataTables(e.PostValues("cp")).SQLFind("注册码=\'" &
e.PostValues("gy") & "\'") |
15 |
If h IsNot Nothing Then |
16 |
Dim xg As New WeUI
\'定义一个基于weui框架的网页生成器 |
17 |
xg.AddForm("","form2","test.htm") |
18 |
With
xg.AddInputGroup("form2","ipg2","注册码修改") |
19 |
With
.AddInput("sf","省份:","text") |
20 |
.Value =
e.PostValues("cp") |
21 |
.Required = True |
22 |
.Readonly = True |
23 |
End With |
24 |
With
.AddInput("yzcm","注册码:","text") |
25 |
.Value =
e.PostValues("gy") |
26 |
.Required = True |
27 |
.Readonly = True |
28 |
End With |
29 |
With
.AddInput("jqm","修改机器码:","text") |
30 |
.Value =
h("机器码") |
31 |
End With |
32 |
End With |
33 |
With
xg.AddButtonGroup("form2","btg2",True) |
34 |
.Add("btn2","确定修改","submit","test.htm") |
35 |
End With |
36 |
e.WriteString(xg.Build) \'生成网页 |
37 |
End If |
38 |
Case "test.htm" |
39 |
Dim hs As DataRow =
DataTables(e.postValues("sf")).SQLFind("注册码=\'" &
e.postValues("yzcm") & "\'") |
40 |
If hs IsNot Nothing Then |
41 |
hs("机器码")=e.PostValues("jqm") |
42 |
Dim wb3 As new WeUI |
43 |
wb3.AddForm("","form3","test.htm") |
44 |
With
wb3.AddMsgPage("","msgpage","操作完成","内容详情,可通过查询查看修改结果") |
45 |
.AddButton("btn1","确定") |
46 |
.AddButton("btn2","返回","addpyh69xg.htm") |
47 |
End With |
48 |
e.WriteString(wb3.Build) \'生成网页 |
49 |
End If |
50 |
End Select |
|
-- 作者:有点蓝
-- 发布时间:2020/4/14 15:27:00
--
Case "test.htm"39msgbox(e.postValues.contains("sf"))能不能弹出 msgbox(e.postValues("sf")) Dim hs As DataRow = DataTables(e.postValues("sf")).SQLFind("注册码=\'" & e.postValues("yzcm") & "\'")
|
-- 作者:pyh6918
-- 发布时间:2020/4/14 15:42:00
--
此主题相关图片如下:qq截图20200414154011.jpg
保存代码出错
|
-- 作者:狐狸爸爸
-- 发布时间:2020/4/14 16:23:00
--
用containskey,这是一个字典
|
-- 作者:pyh6918
-- 发布时间:2020/4/14 16:40:00
--
多谢老六,继续学习!
|
-- 作者:pyh6918
-- 发布时间:2020/4/14 16:58:00
--
msgbox(e.postValues.containskey("sf")) ‘加入这行代码弹出窗口: 此主题相关图片如下:04131656.jpg
|
-- 作者:有点蓝
-- 发布时间:2020/4/14 17:30:00
--
httprequest事件完整代码发上来看看
|
-- 作者:pyh6918
-- 发布时间:2020/4/14 18:03:00
--
1 |
Select Case e.Path |
2 |
Case
"addpyh69xg.htm" |
3 |
Dim wb As New WeUI \'定义一个基于weui框架的网页生成器 |
4 |
wb.AddForm("","form1","addpyh69xg2.htm") |
5 |
With wb.AddInputGroup("form1","ipg1","注册码查询") |
6 |
.AddSelect("cp","省份","黑龙江|辽宁|吉林") |
7 |
.AddInput("gy","注册码","text") |
8 |
End With |
9 |
With wb.AddButtonGroup("form1","btg1",True) |
10 |
.Add("btn1","确定","submit") |
11 |
End With |
12 |
e.WriteString(wb.Build) \'生成网页 |
13 |
Case
"addpyh69xg2.htm" |
14 |
Dim h As DataRow =
DataTables(e.PostValues("cp")).SQLFind("注册码=\'" &
e.PostValues("gy") & "\'") |
15 |
If h IsNot Nothing Then |
16 |
Dim xg As New WeUI \'定义一个基于weui框架的网页生成器 |
17 |
xg.AddForm("","form2","test.htm") |
18 |
With xg.AddInputGroup("form2","ipg2","注册码修改") |
19 |
With .AddInput("sf","省份:","text") |
20 |
.Value = e.PostValues("cp") |
21 |
.Required = True |
22 |
.Readonly = True |
23 |
End With |
24 |
With .AddInput("yzcm","注册码:","text") |
25 |
.Value = e.PostValues("gy") |
26 |
.Required = True |
27 |
.Readonly = True |
28 |
End With |
29 |
With .AddInput("jqm","修改机器码:","text") |
30 |
.Value = h("机器码") |
31 |
End With |
32 |
End With |
33 |
With xg.AddButtonGroup("form2","btg2",True) |
34 |
.Add("btn2","确定修改","submit","test.htm") |
35 |
End With |
36 |
e.WriteString(xg.Build) \'生成网页 |
37 |
End If |
38 |
Case
"test.htm" |
39 |
msgbox(e.postValues.containskey("sf")) |
40 |
Dim hs As DataRow =
DataTables(e.postValues("sf")).SQLFind("注册码=\'" &
e.postValues("yzcm") & "\'") |
41 |
If hs IsNot Nothing Then |
42 |
hs("机器码")=e.PostValues("jqm") |
43 |
Dim wb3 As new WeUI |
44 |
wb3.AddForm("","form3","test.htm") |
45 |
With
wb3.AddMsgPage("","msgpage","操作完成","内容详情,可通过查询查看修改结果") |
46 |
.AddButton("btn1","确定") |
47 |
.AddButton("btn2","返回","addpyh69xg.htm") |
48 |
End With |
49 |
e.WriteString(wb3.Build) \'生成网页 |
50 |
End If |
51 |
End Select |
|
-- 作者:有点蓝
-- 发布时间:2020/4/14 20:33:00
--
麻烦去掉行号再发上来。这样别人无法测试
.Add("btn2","确定修改","submit","test.htm")
改为这样试试 .Add("btn2","确定修改","submit")
|
-- 作者:pyh6918
-- 发布时间:2020/4/14 21:08:00
--
多谢蓝版,按9楼的方法参数已传入“test.htm",但是hs("机器码")=e.PostValues("jqm")这句没起作用。还请指导! Select
Case e.Path |
Case "addpyh69xg.htm" |
Dim wb As New WeUI \'定义一个基于weui框架的网页生成器 |
wb.AddForm("","form1","addpyh69xg2.htm") |
With wb.AddInputGroup("form1","ipg1","注册码查询") |
.AddSelect("cp","省份","黑龙江|辽宁|吉林") |
.AddInput("gy","注册码","text") |
End With |
With wb.AddButtonGroup("form1","btg1",True) |
.Add("btn1","确定","submit") |
End With |
e.WriteString(wb.Build) \'生成网页 |
Case "addpyh69xg2.htm" |
Dim h As DataRow =
DataTables(e.PostValues("cp")).SQLFind("注册码=\'" &
e.PostValues("gy") & "\'") |
If h IsNot Nothing Then |
Dim xg As New WeUI \'定义一个基于weui框架的网页生成器 |
xg.AddForm("","form2","test.htm") |
With xg.AddInputGroup("form2","ipg2","注册码修改") |
With .AddInput("sf","省份:","text") |
.Value = e.PostValues("cp") |
.Required = True |
.Readonly = True |
End With |
With .AddInput("yzcm","注册码:","text") |
.Value = e.PostValues("gy") |
.Required = True |
.Readonly = True |
End With |
With .AddInput("jqm","修改机器码:","text") |
.Value = h("机器码") |
End With |
End With |
With xg.AddButtonGroup("form2","btg2",True) |
.Add("btn2","确定修改","submit") |
End With |
e.WriteString(xg.Build) \'生成网页 |
End If |
Case "test.htm" |
msgbox(e.postValues.containskey("sf")) |
Dim hs As DataRow =
DataTables(e.postValues("sf")).SQLFind("注册码=\'" &
e.postValues("yzcm") & "\'") |
If hs IsNot Nothing Then |
hs("机器码")=e.PostValues("jqm") |
Dim wb3 As new WeUI |
wb3.AddForm("","form3","test.htm") |
With
wb3.AddMsgPage("","msgpage","操作完成","内容详情,可通过查询查看修改结果") |
.AddButton("btn1","确定") |
.AddButton("btn2","返回","addpyh69xg.htm") |
End With |
e.WriteString(wb3.Build) \'生成网页 |
End If |
End
Select |
|