e.postValues数据传递请教？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → e.postValues数据传递请教？

下一主题 >> << 上一主题

共有2699人关注过本帖树形打印复制链接主题：e.postValues数据传递请教？

帅哥哟，离线，有人找我吗？

pyh6918

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1128 积分：11041 威望：0 精华：2 注册：2008/9/1 10:45:00

e.postValues数据传递请教？ 发帖心情

发帖心情

Post By：2020/4/14 14:59:00 [只看该作者]

第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

回到顶部

帅哥哟，离线，有人找我吗？

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107873 积分：548728 威望：0 精华：9 注册：2015/6/24 9:21:00

发帖心情

Post By：2020/4/14 15:27:00 [只看该作者]

Case "test.htm"39

msgbox(e.postValues.contains("sf"))能不能弹出

msgbox(e.postValues("sf"))

Dim hs As DataRow = DataTables(e.postValues("sf")).SQLFind("注册码='" & e.postValues("yzcm") & "'")

回到顶部

帅哥哟，离线，有人找我吗？

pyh6918

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1128 积分：11041 威望：0 精华：2 注册：2008/9/1 10:45:00

发帖心情

Post By：2020/4/14 15:42:00 [只看该作者]

图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20200414154011.jpg

图片点击可在新窗口打开查看

保存代码出错

回到顶部

帅哥哟，离线，有人找我吗？

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：管理员帖子：47449 积分：251065 威望：0 精华：91 注册：2008/6/17 17:14:00

发帖心情

Post By：2020/4/14 16:23:00 [只看该作者]

用containskey，这是一个字典

回到顶部

帅哥哟，离线，有人找我吗？

pyh6918

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1128 积分：11041 威望：0 精华：2 注册：2008/9/1 10:45:00

发帖心情

Post By：2020/4/14 16:40:00 [只看该作者]

多谢老六，继续学习！

回到顶部

帅哥哟，离线，有人找我吗？

pyh6918

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1128 积分：11041 威望：0 精华：2 注册：2008/9/1 10:45:00

发帖心情

Post By：2020/4/14 16:58:00 [只看该作者]

msgbox(e.postValues.containskey("sf")) ‘加入这行代码弹出窗口：

图片点击可在新窗口打开查看

此主题相关图片如下：04131656.jpg

图片点击可在新窗口打开查看

回到顶部

帅哥哟，离线，有人找我吗？

有点蓝

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107873 积分：548728 威望：0 精华：9 注册：2015/6/24 9:21:00

发帖心情

Post By：2020/4/14 17:30:00 [只看该作者]

httprequest事件完整代码发上来看看

回到顶部

帅哥哟，离线，有人找我吗？

pyh6918

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1128 积分：11041 威望：0 精华：2 注册：2008/9/1 10:45:00

发帖心情

Post By：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

回到顶部

帅哥哟，离线，有人找我吗？

有点蓝

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107873 积分：548728 威望：0 精华：9 注册：2015/6/24 9:21:00

发帖心情

Post By：2020/4/14 20:33:00 [只看该作者]

麻烦去掉行号再发上来。这样别人无法测试

.Add("btn2","确定修改","submit","test.htm")

改为这样试试

.Add("btn2","确定修改","submit")

回到顶部

帅哥哟，离线，有人找我吗？

pyh6918

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1128 积分：11041 威望：0 精华：2 注册：2008/9/1 10:45:00

发帖心情

Post By：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

回到顶部

下一主题 >> << 上一主题

总数 15 1 2 下一页

RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询