Question

错误提示：无法插入空行，行必须至少有一个列值集

是VB+ACCESS做的程序。请问如何修改？先谢谢了。
Option Explicit
Dim sql As String
Dim connectionstring As String
Dim ez_room As New adodb.Recordset

Private Sub Form_Load()

On Error GoTo loaderror
connectionstring = "provider=Microsoft.Jet.oledb.4.0;data source= D:\bsvb\rent.mdb"
con.Open connectionstring
sql = "select * from 房间信息表" '检索房间信息表
ez_room.CursorLocation = adUseClient
ez_room.Open sql, con, adOpenKeyset, adLockPessimistic
loaderror:
MsgBox Err.Description
End Sub

Private Sub save_Click(Index As Integer)
On Error GoTo saveerror
If txtroomid(9).Text = "" Then
MsgBox "房屋编号不能为空！", vbOKOnly + vbExclamation, ""
txtroomid(9).SetFocus
Exit Sub
End If
ez_room.MoveFirst
Dim i As Integer
For i = 0 To ez_room.RecordCount - 1 '逐条检查房间编号是否已经存在
If Trim(ez_room.Fields(1)) = Trim(txtroomid(9).Text) Then
GoTo seg1
Exit Sub
End If
ez_room.MoveNext
Next i
ez_room.AddNew
seg1: Text1.Text = ez_room.Fields(1)
ez_room.Fields(1) = Trim(txtroomid(9).Text) '逐字段插入
ez_room.Fields(2) = Trim(ed(2).Text) '数值转换为字符串
ez_room.Fields(3) = CSng(area(8).Text)
ez_room.Fields(4) = CSng(rent(0).Text)
ez_room.Fields(5) = CSng(floor.Text)
ez_room.Fields(6) = Trim(orien(0).Text)
ez_room.Fields(7) = CSng(winnum(1).Text)
ez_room.Fields(8) = Trim(jj(1).Text)
ez_room.Fields(9) = Trim(jd(3).Text)
ez_room.Fields(10) = Trim(man(5).Text)
ez_room.Fields(11) = CSng(mannum(2).Text)
ez_room.Update '将插入的记录保存
MsgBox "添加成功！", vbOKOnly + vbExclamation, ""
saveerror:
MsgBox Err.Description

End Sub
怎么用你说的那个语句？
能说详细一点吗？谢谢

同一段代码，现在又出现一个错误：“类型不匹配”

Answer 1

我想应该是你给字段赋值的时候出现了空值吧
最好是用iif(isnull(),"",())语句

比如:ez_room.Fields(1) = iif(isnull(Trim(txtroomid(9).Text)),"",Trim(txtroomid(9).Text))

类型不匹配，那就是字段的类型不是字符型或你赋给他的类型，将类型转换一下就可以了。比如数字类型和日期类型是不能用字符型的

Answer 2

添加的时候在文本框里什么也不输入出现的错误~~应该在文本框里做些限制，比如某些不允许为空的列添加的时候出现了空值．
类型不匹配：录入的类型与数据库的类型不一致．
这些问题都可以在文本框里做限制：例如只允许输入数字
Private Sub Text5_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 45 Then
KeyAscii = 0
End If
或 在添加的时候判断不符合条件终止添加
If Text111.Text = "" Then
MsgBox ("请输入日期")
Exit Sub
End If