主题：移动开发新增

编辑的时候你跳转的url是什么？新增的时候你把url的oid参数删除掉即可。

 你都没有赋值的代码。你点击提交的时候，跳转到哪里处理？

 

Dim url As String = "save.htm?page=" & page &  "&oid=" & pr("_Identify")  '传递页码和订单编号

 

 你可以在save.htm页面进行数据保存。

代码改一下

 

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

1、2、新增一行，保存，然后编辑，提示删除？

 

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

1、你新增一行，填入数据以后保存，你应该跳转到 save.htm 网页去吧？你怎么还在edit里面？

 

2、这样写

 

Dim str As String = " |" & DataTables("民族代码").SQLGetComboListString("民族")

If pr("民族") > "" Then

    AddSelect("民族","民族"，str.replace(pr("民族"), "[" & pr("民族") & "]"))

Else

    AddSelect("民族","民族"，str)

End if

那就不要用sqlAddNew了吧？直接用addnew

 

Dim pr =  DataTables("表A").AddNew()
pr.save

回复15楼。调出浏览器的调试器。一般是->右键->查看元素，在里面看看报什么错。

 

在你httprequest事件，加入msgbox，看能否弹出对应值，定位出错位置。

 

如果还不行，实例发上来测试。

 

调试器报什么错？加入msgbox是否弹出？