1、可能没有这个
维修任务ID：
函数：SaveNewTask 代码：
Dim e As RequestEventArgs = args(0)
if e.PostValues.ContainsKey("维修任务ID")
Dim dr As DataRow = DataTables("维修任务明细表").SQLFind("维修任务ID='" & e.PostValues("维修任务ID") & "'")
……
else
msgbox("提示错误并返回")
end if
2、可能找不到这个任务oid
……
If e.Values.ContainsKey("oid") = False Then'如果不存在，则新增
pr = DataTables("维修任务明细表").SQLAddNew() '
pr("维修任务ID") = Functions.Execute("GetOrderID") '利用自定义函数GetOrderID为新增任务生成编号.
pr("维修任务生成日期") = Date.Now
pr("维修任务状态") = "待派单"
Else'如果存在，则编辑
pr = DataTables("维修任务明细表").SQLFind("[维修任务ID] = '" & e.Values("oid") & "'")
if pr is nothing then
msgbox("提示错误并返回")
return "错误"
end if
End If
……
3、UserName这个变量在哪里定义和赋值的？
4、下面代码不全，重新发一下，放到记事本里发上来
With wb.AddButtonGroup("form1", "btg1", False)
.Add("btsave", "保存", "button").Attribute = ""
End With
加好友 
发短信
Post By：2025/3/2 19:36:00 [显示全部帖子]
