开关控件，值改变保存，实际没有保存。其他的所有控件的值都有保存，不知道是什么原因。
编辑代码：
If e.GetValues.ContainsKey("oid") Then '如果是旧订单,则汇总显示数量和金额
With wb.AddInputGroup("form1","ipg1","编辑")
With .AddSwitch("完成","是否完成")
.Value = "True"
.Attribute = ""
.value = pr("完成")
End With
Else
With wb.AddInputGroup("form1","ipg3","新增")
.AddHiddenValue("订单编号",pr("订单编号"))
End With
End If
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn2", "保存", "submit") '正常提交,保存后进入编辑状态
End With
pr.Save() '必须保存,而且必须在最后保存,因为SQLAddNew增加的行,保存之后就会销毁,无法再调用
If e.PostValues.Count > 0 Then '如果是通过提交按钮访问,则给一个已经保存的提示给用户,时长500毫秒
wb.InsertHTML("<meta http-equiv='Refresh' c >") '直接跳转到列表页
End If
wb.AppendHTML("<script src='./lib/order.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
保存代码：
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()
[此贴子已经被作者于2017/4/28 17:37:25编辑过]
加好友 
发短信
Post By：2017/4/28 17:35:00 [显示全部帖子]
此主题相关图片如下：微信截图_20170428225931.png