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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  e.postValues数据传递请教？  (http://foxtable.net/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"39
msgbox(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