专家坐堂-怎么多传一个值进去Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么多传一个值进去  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174274)

--  作者：304376480
--  发布时间：2022/1/8 17:43:00
--  怎么多传一个值进去

老师您好！

在帮助示例里 http://www.foxtable.com/mobilehelp/topics/0120.htm

里面的 Addnew Edit Delete 函数里的 datatable表名都是写死了的，如何传一个变量表名进去？

是用 e.PlainText 吗？我设置了几次都没成功！求指导

--  作者：有点蓝
--  发布时间：2022/1/9 19:54:00
--
从什么地方传入？请使用代码举例说明

--  作者：304376480
--  发布时间：2022/1/10 9:19:00
--
就是有三张订单表，列名称都差不多的，对应的List1、List2、List3

With wb.AddActionSheet("","menu") \'设计菜单
    .Add("mnudAdd", "增加订单").Attribute="" \'调用js函数
    .Add("mnuEdit", "编辑订单").Attribute =""
    .Add("mnuDelete", "删除订单").Attribute =""
    .Add("mnuCancel","取消","",True)
End With

在点击新增。编辑、删除时需要传一个变量进去，是点击的哪个 List 列表，对应修改哪个datatable 订单表

[此贴子已经被作者于2022/1/10 9:23:26编辑过]

--  作者：有点蓝
--  发布时间：2022/1/10 9:22:00
--
请使用代码举例说明

--  作者：304376480
--  发布时间：2022/1/10 9:25:00
--  回复：（有点蓝）请使用代码举例说明
刚刚点错了，我重新编辑了一下，看三楼！！

--  作者：有点蓝
--  发布时间：2022/1/10 9:31:00
--
没看懂，请使用一个完整的函数代码说明：函数里想怎么用，外部想怎么调用，传入什么参数...

--  作者：304376480
--  发布时间：2022/1/10 9:43:00
--
完整代码就是帮助示例啊 http://www.foxtable.com/mobilehelp/topics/0120.htm

我只是把里面的List 改成了List1、List2、List3 三个页面，对应的三张订单表，

然后我要新增、修改、删除操作，在这些页面中的 DataTables("订单")表的名称都是写死的，

怎么传一个变量名进去变成DataTables("List1的表名")？

--  作者：有点蓝
--  发布时间：2022/1/10 9:46:00
--
Dim e As RequestEventArgs = args(0)
dim 表名 as string = args(1)
……
Dim cmd As New SQLCommand
cmd.ConnectionName = "orders" \'记得设置数据源名称
cmd.CommandText = "Select Count(*) From " & 表名
……

将HttpRequest事件代码设置为：

Select Case e.Path
    Case "list.htm"
        Functions.Execute("List",e,"订单1")
  Case "list2.htm"
  Functions.Execute("List",e,"订单2")

--  作者：304376480
--  发布时间：2022/1/10 10:03:00
--
Select Case e.Path
    Case "list1.htm"
        Functions.Execute("List1",e)
Case "list2.htm"
        Functions.Execute("List2",e)
Case "list3.htm"
        Functions.Execute("List3",e)
    Case "addnew.htm"
        Functions.Execute("AddNew",e) ‘点击按扭时，这里需要传值进去，对应的是新增哪张表里的行
    Case "edit.htm"
        Functions.Execute("Edit",e) ‘点击按扭时，这里需要传值进去，对应的是编辑哪张表里的行
    Case "delete.htm"
        Functions.Execute("Delete",e) ‘点击按扭时，这里需要传值进去，对应的是删除哪张表里的行
End Select

我是这么设置的，不知道是否可行，怎么传值进去？

[此贴子已经被作者于2022/1/10 10:05:27编辑过]

--  作者：有点蓝
--  发布时间：2022/1/10 10:15:00
--

Functions.Execute("List1",e)
With wb.AddActionSheet("","menu")
    .Add("mnudAdd", "增加订单").Attribute="" \'调用js函数

Functions.Execute("List2",e)
With wb.AddActionSheet("","menu")
    .Add("mnudAdd", "增加订单").Attribute="" \'调用js函数

function addnew(表名){
   location="edit.htm?page=" + table1.pagenumber + \'&name=\' + 表名;
}

Edit函数
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
dim 表名 as string = e.GetValues("name")
msgbox(表名)
……