专家坐堂-[求助] 版主大佬，帮忙看下代码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=149139)

--  作者：cool314156
--  发布时间：2020/4/24 12:16:00
--  [求助] 版主大佬，帮忙看下代码

Dim e As RequestEventArgs = args(0)
Dim wb As New weui
\'删除订单明细
If e.GetValues.ContainsKey("deldid") Then
DataTables("入库").SQLDeleteFor("[_Identify] = " & e.GetValues("deldid"))
End If
\'订单编辑
Dim pr As DataRow \'采购订单 - 父表
Dim srs As List(of DataRow) \'订单明细集合 - 子表
Dim Page As Integer \'页码变量
If e.GetValues.ContainsKey("page") Then \'如果地址中有page参数
Integer.TryParse(e.GetValues("page"), page) \'提取page参数
End If
If e.GetValues.ContainsKey("oid") = False Then \'如果没有传递订单编号,则新增与一个订单
pr = DataTables("采购订单").SQLAddNew() \'
pr("订单编号") = Functions.Execute("GetOrderID") \'利用自定义函数GetOrderID为新增订单生成编号.
\'pr("") = Date.Today()
Else \'如果传递了订单编号,则找出此订单进行编辑
pr = DataTables("采购订单").SQLFind("订单编号=\'" & e.GetValues("oid") & "\'")
If pr Is Nothing Then \'多用户情况下,必须考虑其他用户删除订单的可能.
wb.InSertHtml("此订单已被其他用户删除!")
e.WriteString(wb.Build)
Return "" \'必须返回
End If
srs = DataTables("入库").SQLSelect("订单编号=\'" & pr("订单编号") & "\'") \'获取订单明细
End If
Dim url As String = "edit.htm?page=" & page & "&oid=" & pr("订单编号") \'传递页码和订单编号
wb.AddForm("","form1",url)
With wb.AddInputGroup("form1","ipg1",iif(e.GetValues.ContainsKey("oid"),"编辑订单","新增订单"))
With .AddInput("订单编号","订单编号","text")
.Value = pr("订单编号")
.Readonly = True
End With
\'.AddInput("订单编号","订单编号","text").Value = pr("订单编号")
.AddInput("单位名称","单位名称","text").Value = pr("单位名称")
.AddInput("验收日期","验收日期","date").Value = pr("验收日期")
\'.AddInput("验收日期","验收日期","date").Value = pr("验收日期")
\'\'If e.GetValues.ContainsKey("oid") Then \'如果是旧采购订单,
\'Dim qty As Integer
\'Dim amt As Integer
\'For Each sr As DataRow In srs
\'qty = qty + sr("数量")
\'amt = amt + sr("数量") * sr("单价")
\'Next
\'.AddInput("总数量","总数量","number").value = qty
\'.AddInput("总金额","总金额","number").value = amt
\'End If
End With
\'订单明细编辑
Dim mr As DataRow \'要编辑的订单明细
Dim IsNew As Boolean \'此变量用于标记是否要新增明细
If e.GetValues.ContainsKey("oid") = False OrElse e.GetValues.ContainsKey("addnext") \'如果是新增订单,或这包括addnext参数
IsNew = True \'将IsNew参数设置为True,表明需要新增订单明细
ElseIf e.GetValues.ContainsKey("did") Then \'如果传递了订单明细主键
mr = DataTables("入库").SQLFind("[_Identify]=" & e.GetValues("did")) \'找出此订单明细进行编辑
End If
If IsNew OrElse mr IsNot Nothing Then
With wb.AddInputGroup("form1","ipg2",iif(IsNew,"新增明细","编辑明细"))
\'.Attribute = "" \'调用js函数,自动计算金额
If IsNew Then \'如果是新增订单明细
\'.AddInput("产品","产品","text") \'AddInput("订单编号","订单编号","text")
.AddInput("通用名","通用名","text")
.AddInput("规格","规格","text")
.AddInput("批号","批号","text")
.AddInput("入库数量","入库数量","number")
.AddInput("单位","单位","text")
.AddInput("货位号","货位号","text")
.AddInput("入库时间","入库时间","date").value = Date.Today()

Else
.AddHiddenValue("DetailID",mr("_Identify")) \'插入一个隐藏的订单明细主键,此值将随表单数据一并提交到服务器.
.AddInput("通用名","通用名","text").Value = mr("通用名")
.AddInput("规格","规格","text").Value = mr("规格")
.AddInput("批号","批号","text").Value = mr("批号")

.AddInput("数量","数量","number").value = mr("数量")
.AddInput("单位","单位","text").Value = mr("单位")
.AddInput("货位号","货位号","text").Value = mr("货位号")
.AddInput("入库时间","入库时间","date").value = Date.Today()
\'With .AddInput("单价","单价","number")
\'.Step= "0.01"
\'.value = mr("单价")
\'End With
\'.AddInput("金额","金额","number").value = mr("数量") * mr("单价") \'后台没有金额列,要通过数量和单价计算得出
End If
End With
End If
\'生成订单明细表格
If e.GetValues.ContainsKey("oid") AndAlso srs.count > 0 Then \'如果不是新增订单,且订单明细行数大于0,则生成入库明细表格.
With wb.AddTable("form1","detailTable") \'为了区分,明细表的名字设为detailTable
.head.AddRow("通用名","规格","批号","入库数量","单位","货位号","入库时间")
.ActiveSheet = "menu" \'指定菜单
For Each sr As DataRow In srs
With .Body.AddRow(sr("通用名"),sr("规格"),sr("批号"),sr("入库数量"),sr("单位"),sr("货位号"),sr("入库时间"))
\'.AddCell(sr("数量") * sr("单价"))
.Primarykey = sr("_Identify") \'为此行指定主键值
End With
Next
End With
\'设计菜单
With wb.AddActionSheet("","menu")
.Add("mnudAdd", "增加明细").Attribute="" \'调用js函数
.Add("mnuEdit", "编辑明细").Attribute =""
.Add("mnuDelete", "删除明细").Attribute ="""
.Add("mnuCancel","取消","",True)
End With
End If
With wb.AddDialog("","dlg1", "删除确认","您确定要删除当前明细吗?")
.AddButton("btnCancel","取消").Kind = 1
.AddButton("btnOK","确定").Attribute = ""
End With
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "增加明细", "submit").FormAction = url & "&addnext=true" \'加上addnext参数,表示保存后进入增加明细状态
.Add("btn2", "保存", "submit") \'正常提交,保存后进入编辑状态
If e.GetValues.ContainsKey("oid") = False Then \'如过是新增订单
.Add("btn3", "取消", "button","list.htm?page=" & page & "&deloid=" & pr("订单编号")) \'删除新增订单后返回列表
ElseIf IsNew OrElse mr IsNot Nothing Then \'如果在给旧订单新增或修改明细,则直接返回编辑状态
.Add("btn3", "取消", "button",url) \'返回编辑状态
Else
.Add("btn3", "返回", "button","list.htm?page=" & page) \'返回列表
End If
End With
pr.Save() \'必须保存,而且必须在最后保存,因为SQLAddNew增加的行,保存之后就会销毁,无法再调用
If e.PostValues.Count > 0 Then \'如果是通过提交按钮访问,则给一个已经保存的提示给用户,时长500毫秒
wb.AddToast("","t1", "已经保存",0).Msec= 500
End If
wb.AppendHTML("<script src=\'./lib/order.js\'></script>") \'引入脚本文件
e.WriteString(wb.Build) \'生成网页

上面这段是内部函数
Select Case e.Path

Case "Edit.htm"
Functions.Execute("Edit",e)
End Select
我用这段代码调用，测试出来结果是没有编辑按钮，求教下，哪里错了

--  作者：有点蓝
--  发布时间：2020/4/24 14:14:00
--
没有编辑菜单？我复制代码，改改测试没有问题

--  作者：cool314156
--  发布时间：2020/4/24 14:38:00
--
版主我的以上是 Edit.htm这个页面，没有编辑按钮，要怎么加，双击关联表是有编辑的

--  作者：有点蓝
--  发布时间：2020/4/24 14:43:00
--
添加一个按钮，和菜单的用法一样呀

.Add("mnuEdit", "编辑明细").Attribute ="" 后面这段复制到按钮里即可

--  作者：cool314156
--  发布时间：2020/4/24 15:14:00
--
谢谢