弹出对应的值看看
msgbox(e.PostValues("订单编号") )
Dim dr As DataRow = DataTables("订单").SQLFind("订单编号='" & e.PostValues("订单编号") & "'")
Dim nms() As String = {"完成"} '""
If dr IsNot Nothing Then
msgbox("进入了")
For Each nm As String In nms
msgbox(nm)
If e.PostValues.ContainsKey(nm) Then
msgbox(nm & " : " & e.PostValues(nm))
dr(nm)= e.PostValues(nm)
End If
Next
End If
dr.Save()
如果弹出的值都正常，那肯定是修改了，sqlfind的是后台修改，你在前台可能没有看到最新值，要刷新一下
加好友 
发短信
Post By：2017/4/28 17:40:00 [显示全部帖子]
