保存按钮第一段代码改为这样报错：
Dim rq As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim d As String = rq.Value
If d = "" Then
messagebox.show("请选择实施日期")
Return
End If
If d IsNot Nothing And e.Form.Controls("TextBox1").Value IsNot Nothing Then
Dim dr As DataRow = DataTables("收费标准").Find("[实施日期] = #" & CDate(d) & "#")
If dr IsNot Nothing And dr("月租收费") = CDbl(e.Form.Controls("TextBox1").Value) Then
messagebox.show("数据已存在，请勿重复操作。")
Return
ElseIf dr IsNot Nothing And dr("月租收费") <> CDbl(e.Form.Controls("TextBox1").Value) Then
dr("月租收费") = CDbl(e.Form.Controls("TextBox1").Value)
dr.Save()
ElseIf dr Is Nothing Then
Dim da As DataRow = DataTables("收费标准").AddNew
da("实施日期") = CDate(d)
da("月租收费") = CDbl(e.Form.Controls("TextBox1").Value)
da.Save()
End If
End If
.NET Framework 版本：4.0.30319.18063
Foxtable 版本：2022.5.29.2
错误所在事件：窗口,收费定价,Button1,Click
详细错误信息：
Object reference not set to an instance of an object.
加好友 
发短信
Post By：2022/6/30 10:36:00 [只看该作者]
