主题：移动开发新增

在哪里看得到跳转的url，懂不起

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() '
Else '如果传递了订单编号,则找出此订单进行编辑
    pr = DataTables("学生信息").SQLFind("_Identify='" & e.GetValues("oid") & "'")
    If  pr Is  Nothing Then '多用户情况下,必须考虑其他用户删除订单的可能.
        wb.InSertHtml("该学生信息删除了")
        e.WriteString(wb.Build)
        Return  ""  '必须返回
    End  If
End  If
Dim url As String= "edit.htm?page=" & page &  "&oid=" & pr("_Identify")  '传递页码和订单编号
wb.AddForm("","form1",url)
With wb.AddInputGroup("form1","ipg1",iif(e.GetValues.ContainsKey("oid"),"编辑信息","新增信息"))
    .AddInput("身份证件号","身份证件号","text").Value = pr("身份证件号")
    .AddInput("学生姓名","学生姓名","text").Value = pr("学生姓名")
    .AddInput("学籍号","学 籍 号","text").Value = pr("学籍号")
End With
 With wb.AddButtonGroup("form1","btg1",False)
       .Add("btn2", "保存", "submit")  '正常提交,保存后进入编辑状态
    If  e.GetValues.ContainsKey("oid") = False Then '如过是新增订单
        .Add("btn3", "取消", "button","list.htm?page=" & page & "&deloid=" & pr("订单编号")) '删除新增订单后返回列表
        Else
        .Add("btn3", "返回", "button","list.htm?page=" & page) '返回列表
    End  If
 End With
 pr.Save()
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) '生成网页

老师，现在点编辑可以了，就是点新增就出现调用目标异常，查了很久也没清到问题请老师帮改一下嘛，确实不得行呀

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() '
Else '如果传递了订单编号,则找出此订单进行编辑
    pr = DataTables("学生信息").SQLFind("_Identify='" & e.GetValues("oid") & "'")
    If  pr Is  Nothing Then '多用户情况下,必须考虑其他用户删除订单的可能.
        wb.InSertHtml("该学生信息删除了")
        e.WriteString(wb.Build)
        Return  ""  '必须返回
    End  If
End  If
Dim url As String= "edit.htm?page=" & page &  "&oid=" & pr("_Identify")  '传递页码和订单编号
wb.AddForm("","form1",url)
With wb.AddInputGroup("form1","ipg1",iif(e.GetValues.ContainsKey("oid"),"编辑信息","新增信息"))
    .AddInput("身份证件号","身份证件号","text").Value = pr("身份证件号")
    .AddInput("学生姓名","学生姓名","text").Value = pr("学生姓名")
    .AddInput("学籍号","学 籍 号","text").Value = pr("学籍号")
End With
 With wb.AddButtonGroup("form1","btg1",False)
       .Add("btn2", "保存", "submit")  '正常提交,保存后进入编辑状态
    If  e.GetValues.ContainsKey("oid") = False Then '如过是新增订单
        .Add("btn3", "取消", "button","list.htm?page=" & page & "&deloid=" & pr("_Identify")) '删除新增订单后返回列表
        Else
        .Add("btn3", "返回", "button","list.htm?page=" & page) '返回列表
    End  If
 End With
 pr.Save()
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) '生成网页

老师，现在新增的问题解决了，但保存又出现了个问题，编辑保存没问题，但新增保存又能出现

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2017.6.12.1
错误所在事件：自定义函数Save
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。

save()

Dim e As RequestEventArgs = args(0)
 '保存订单
Dim dr As DataRow =  DataTables("学生信息").SQLFind("身份证件号='" & e.PostValues("身份证件号") & "'")
Dim nms() As String =  {"身份证件号","学生姓名","学籍号"}
If dr IsNot Nothing Then
    For Each nm As String In nms
        If e.PostValues.ContainsKey(nm) Then
            dr(nm)= e.PostValues(nm)
         End  If
    Next
 End If
 dr.Save()
 '保存明细

研究了没看出问题，请问老师问题出在什么地方

If e.GetValues.ContainsKey("oid") = False Then '如果没有传递订单编号,则新增与一个订单
    pr =  DataTables("学生信息").sqlAddNew() '

1、在edit 中有这句增加代码

2、测试改成这个得到的结果是：该学生信息删除了

另外我想在编辑了中增加编辑字段民族

  .AddSelect("民族","民族"，DataTables("民族代码").SQLGetComboListString("民族") )

但显初始的时候显示其本来的民族，只是可下拉选择修改怎么办

1、老师，编辑已有记录保存可以，但当新一行，填入相关数据保存，提示：“该学生信息删除了”是不是因为这段：

pr = DataTables("学生信息").SQLFind("_Identify='" & e.GetValues("oid") & "'")
    If  pr Is  Nothing Then '多用户情况下,必须考虑其他用户删除订单的可能.
        wb.InSertHtml("该学生信息删除了")
        e.WriteString(wb.Build)
        Return  ""  '必须返回
    End  If

我理解是不是_identify没有产生并传递，因为已有记录存在_idengify,该怎么办？

2、AddSelect("民族","民族"，DataTables("民族代码").SQLGetComboListString("民族").replace(pr("民族"), "[" & pr("民族") & "]"))

这个代码很安逸，很多地方有用，但测试有个问题，当本身民族字段内容不为空时可以，为空时提示调用目标异常，该怎么办？

老师，我测试发现

 pr =  DataTables("学生信息").sqlAddNew()
    DataTables("学生信息").save() '
   'messagebox.show(pr("_identify"))

用pr.save():出现调用目标异常，

用 DataTables("学生信息").save()

弹出_identify 的值为0  是什么原因，怎么办呀

Dim e As RequestEventArgs = args(0)
Dim wb As New  weui
Dim dr As DataRow = DataTables("用户").sqlfind("身份证号 = '" & e.Cookies("username") & "'")
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("学生信息").addNew()
    pr("班级") =dr("班级")
    pr("学校名称") =dr("group")
    pr("状态")="在读:原籍在读"
   DataTables("学生信息").save
Else '如果传递了订单编号,则找出此订单进行编辑
    pr = DataTables("学生信息").SQLFind("_Identify='" & e.GetValues("oid") & "'")
    If  pr Is  Nothing Then '多用户情况下,必须考虑其他用户删除订单的可能.
        wb.InSertHtml("该学生信息删除了")
        e.WriteString(wb.Build)
        Return  ""  '必须返回
    End  If
End  If
Dim url As String= "edit.htm?page=" & page &  "&oid=" & pr("_Identify")  '传递页码和订单编号
wb.AddForm("","form1",url)
With wb.AddInputGroup("form1","ipg1",iif(e.GetValues.ContainsKey("oid"),"编辑信息","新增信息"))
    .AddInput("学生姓名","学生姓名","text").Value = pr("学生姓名")
    .AddInput("身份证件号","身份证件号","text").Value = pr("身份证件号")
    .AddInput("学籍号","学 籍 号","text").Value = pr("学籍号")
    .AddInput("联系电话","联系电话","text").Value = pr("联系电话")
    .AddInput("家庭住址","家庭住址","text").Value = pr("家庭住址")
    If pr.Isnull("民族")
        .AddSelect("民族","民族"," |" & DataTables("民族代码").SQLGetComboListString("民族","","代码"))
    Else
        .AddSelect("民族","民族"," |" & DataTables("民族代码").SQLGetComboListString("民族","","代码").replace(pr("民族"), "[" & pr("民族") & "]"))
    End If
    If pr.Isnull("政治面貌")
        .AddSelect("政治面貌","政治面貌"," |" & DataTables("政治面貌").SQLGetComboListString("政治面貌","","代码"))
    Else
        .AddSelect("政治面貌","政治面貌"," |" & DataTables("政治面貌").SQLGetComboListString("政治面貌","","代码").replace(pr("政治面貌"), "[" & pr("政治面貌") & "]"))
    End If
If pr("户口性质") = "农业户口"
        .AddSelect("户口性质","户口性质"," |[农业户口]|非农业户口")
    ElseIf pr("户口性质") = "非农业户口"
        .AddSelect("户口性质","户口性质"," |农业户口|[非农业户口]")
Else
.AddSelect("户口性质","户口性质"," |农业户口|非农业户口")
    End If

 If pr.Isnull("健康状况")
        .AddSelect("健康状况","健康状况"," |" & DataTables("健康状况").SQLGetComboListString("健康状况"))
    Else
        .AddSelect("健康状况","健康状况"," |" & DataTables("健康状况").SQLGetComboListString("健康状况").replace(pr("健康状况"), "[" & pr("健康状况") & "]"))
    End If

    ' If pr.Isnull("户口性质")
     '   .AddSelect("户口性质","户口性质"," |" & DataTables("户口性质").SQLGetComboListString("户口性质"))
    'Else
     '   .AddSelect("户口性质","户口性质"," |" & DataTables("户口性质").SQLGetComboListString("户口性质").replace(pr("户口性质"), "[" & pr("户口性质") & "]"))
   ' End If
End With
With wb.AddButtonGroup("form1","btg1",False)
    .Add("btn2", "保存", "submit")  '正常提交,保存后进入编辑状态
    If  e.GetValues.ContainsKey("oid") = False Then '如过是新增订单
        .Add("btn3", "取消", "button","list.htm?page=" & page & "&deloid=" & pr("_Identify")) '删除新增订单后返回列表
    Else
        .Add("btn3", "返回", "button","list.htm?page=" & page) '返回列表
    End  If
End With
pr.Save()
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) '生成网页

现在在电脑上测试新增，修改，保存都可以了，但移动服务器上点新增就没有反应定在list页面了，是什么原因

再次测试，所有的代码都一样，在电脑上用gool模拟都可以，但服务器上不行，是什么原因，请老师指点