关于text累加后计入Adodc1.Recordset.Fields中,谢谢

来源：百度知道 编辑：UC知道 时间：2024/06/30 23:53:08
目的:数值text2-text2后计入text6中,text6(中间环节,控件隐去)中的数值计入Access库文件"实际用水"中,并在DataGrid1中实时显示，个数据控件全部捆定.
问题:"添加记录确定",在text2、3中填入数字后，这时text6没有变化，DataGrid1中的“实际用水”为空，没有变化。

Private Sub Text6_Change()
Text6.Text = Val(Text2.Text) - Val(Text3.Text)
Adodc1.Recordset.Fields("实际用水") = Val(Text6.Text)

Private Sub 添加记录确定_Click()
Adodc1.Recordset.AddNew
Text1.SetFocus
Adodc1.Recordset.Fields("单位") = Text1.Text
Adodc1.Recordset.Fields("本月读数") = Val(Text2.Text)
Adodc1.Recordset.Fields("上月读数") = Val(Text3.Text)
Adodc1.Recordset.Update
Adodc1.Recordset.MoveLast
End Sub

修改：
Private Sub Text3_Change()
IF Val(Text3.Text)<>0 then 或 IF Text3.Text<>"" then
我认为IF Val(Text3.Text)<>0 then比较合理
Text6.Text = Val(Text2.Text) - Val(Text3.Text)
Adodc1.Recordset.Fields("实际用水") = Val(Text6.Text)
Adodc1.Recordset.Update
End if
End Sub
在Text3变化时动作，而不能是Text6动作。
修改内容必须有Adodc1.Recordset.Update语句。
最好将
Adodc1.Recordset.Fields("实际用水") = Val(Text6.Text)
Adodc1.Recordset.Update
语句加在Private Sub 添加记录确定_Click() 过程中