第一次机房收费系统错误总结

1.实时错误80040e2f

解决方法是在数据库中把修改，在允许Null值后打钩即可，让其性质允许Null

最开始这样修改是可以的，不过后来我发现为什么会出这个错了，与.Addnew有关，其实最初的想法应该是要在原数据上更新数据，所以并不是添加所有的数据，而是添加一部分，可是却加上了.Addnew,而这个.Addnew是添加了新的记录，这是需要完整数据的。

加.Addnew和不加.Addnew的区别：

添加新的记录则加.Add.new，而修改数据是需要在数据库的记录上直接修改，不是再添加一条新的记录，这样就不需要.Addnew了

用机房收费系统中的基本数据设定举个例子：

      txtSQL = "select * from BasicData_Info where head='" & frmlogin.txtUserName.Text & "'"
      Set mrc9 = executeSQL(txtSQL, MsgText)
      
      mrc9.Fields(0) = Trim(txtRate.Text)
      mrc9.Fields(1) = Trim(txtTmprate.Text)
      mrc9.Fields(2) = Trim(txtUnittime.Text)
      mrc9.Fields(3) = Trim(txtLeasttime.Text)
      mrc9.Fields(4) = Trim(txtPreparetime.Text)
      mrc9.Fields(5) = Trim(txtLimitcash.Text)
      mrc9.Fields(6) = Trim(frmlogin.txtUserName.Text)
      mrc9.Fields(7) = Date
      mrc9.Fields(8) = Time
      mrc9.Update

这样就直接在原数据的基础上修改了

      txtSQL = "select * from BasicData_Info where head='" & frmlogin.txtUserName.Text & "'"
      Set mrc9 = executeSQL(txtSQL, MsgText)
      mrc9.AddNew
      mrc9.Fields(0) = Trim(txtRate.Text)
      mrc9.Fields(1) = Trim(txtTmprate.Text)
      mrc9.Fields(2) = Trim(txtUnittime.Text)
      mrc9.Fields(3) = Trim(txtLeasttime.Text)
      mrc9.Fields(4) = Trim(txtPreparetime.Text)
      mrc9.Fields(5) = Trim(txtLimitcash.Text)
      mrc9.Fields(6) = Trim(frmlogin.txtUserName.Text)
      mrc9.Fields(7) = Date
      mrc9.Fields(8) = Time
      mrc9.Update

这样的是在数据上又加了一天记录

2. 实时错误94

一种办法是在出错的那一行加上“     & ””      ”就好

例如：

3..错误30006

这是缺少一行代码：mrc.movenext

4.实时错误30015

这是因为在MSFlexGrid中未选定一行而出错，在属性中修改其属性即可