Dim Page As Integer=0
Dim PageURL = "list2.htm?page=" & page & "&key=" & list2key
If e.PostValues.Count = 0 Then '生成编辑页面
'messagebox.show(primarykey)
Dim dr As DataRow = DataTables("操作表").SQL Fin d("[_Identify]=" & PrimaryKey)
If dr IsNot Nothing Then
wb.AddForm("page1","form1","edit2.htm?key=" & PrimaryKey & "&page=" & PageNumber & "&list2key=" & list2key )
With wb.AddInputGroup("form1","ipg1","编辑计重")
.AddInput("mtc150","纵倾力矩mtc-50","number").value=dr("mtc150")
.AddInput("const","船舶常数const","number").value=dr("const")
.AddInput("drainage","排水重量drainage","number").value=dr("drainage")
.AddInput("rounddraft","查表水尺rounddraft","number").value=dr("rounddraft")
.AddInput("tpc","每厘米吃水吨数tpc","number").value=dr("tpc")
.AddInput("lcf","漂心距舯距离lcf","number").value=dr("lcf")
.AddInput("harbourdensity","港水密度harbourdensity","number").value=dr("harbourdensity")
.AddInput("displacement","排水量displacement","number").value=dr("displacement")
.AddInput("操作员","操作员","text").value=dr("操作员")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
Else
With wb.AddMsgPage("page1","msgpage","编辑失败", "此计重信息可能已经被删除!") '提示用户此订单不存在.
.icon= "Warn"
.AddButton("btn1","返回",PageURL) '生成返回原来页面的按钮
End With
End If
Else '保存编辑结果
Dim pr As DataRow = DataTables("操作表").SQLFind("[_Identify]=" & PrimaryKey)
If pr IsNot Nothing Then
Dim nms() As String = {"fmark","mmark","amark","fp","mp","ap","fs","ms","as","df","dm","da","do","fo","others","bl","mtc50","mtc150","const","drainage","rounddraft","tpc","lcf","harbourdensity","displacement","操作员"}
For Each nm As String In nms
pr(nm) = e.PostValues(nm)
Next
pr.save
。。。
我这个是编辑某行数据,在编辑确定后,后台数据保存成功了,但是狐表端没有同步相关数据。而我在另一个程序中用的是addnew函数同样增加的数据,就可以前端后端同时出现数据,并且触发事件。
问题:为什么编辑行和新增行反应不一样?现在想和新增行那样,编辑完数据之后,自动保存前后端数据,并且触发狐表中的事件计算当前行的其它数据列。