我改为帮助中的页面编辑方式
下面是js 代码如下
function khbj() {
location = "
getkhbj.htm?page=" + table1.pagenumber + "&oid=" + table1.primarykey;
}
通过菜单打开页面
.ActiveSheet = "menu" '指定菜单
End With
With wb.AddActionSheet("","menu") '设计菜单
.Add("mnudAdd", "编辑客户").Attribute="" '调用js函数
End With
getkhbj.htm 的函数代码如下
Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI '定义一个基于weui框架的网页生成器
wb.AddPageTitle("","pageheader","客户编辑","湖南城市之窗")
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
'
pr = DataTables("客户_终端用户").SQLFind("用户手机='" & e.GetValues("oid") & "'")
If pr Is Nothing Then '多用户情况下,必须考虑其他用户删除订单的可能.
wb.InSertHtml("此用户已被其他用户删除!")
e.WriteString(wb.Build)
Return "" '必须返回
End If
'
Dim url As String = "getkhbj.htm?page=" & page & "&oid=" & pr("用户手机") '传递页码和订单编号
wb.AddForm("","form11",url)
With wb.AddInputGroup("form1","ipg1",iif(e.GetValues.ContainsKey("oid"),"编辑订单","新增订单"))
With .AddInput("用户姓名","用户姓名","text")
.Value = pr("用户姓名")
.Readonly = True
End With
With .AddInput("用户手机","用户手机","text")
.Value = pr("用户手机")
.Readonly = True
End With
.AddInput("楼盘","楼盘","text").Value = pr("客户")
.AddInput("楼盘","楼盘","text").Value = pr("单元房号")
'
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "提交", "submit")
End With
e.WriteString(wb.Build)
跳转后的路径 url 显示 http://124.21.12.1/getkhbj.htm?page=undefined&oid=null
好像没有结果 请教老师
[此贴子已经被作者于2022/3/8 19:09:17编辑过]