Question

无法插入空行，行必须至少有一个列值集

Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Text1.SetFocus
MsgBox "请输入各字段值，充电架编号字段不能为空", vbInformation, "添加"
End Sub

Private Sub Command2_Click()
Dim a As Integer

a = MsgBox("您确认删除本充电架信息?", vbQuestion + vbYesNo, "删除")
If a = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
End If
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

不知道错哪里

Answer 1

添加的时候在文本框里什么也不输入出现的错误~~应该在文本框里做些限制，比如某些不允许为空的列添加的时候出现了空值．
类型不匹配：录入的类型与数据库的类型不一致．
这些问题都可以在文本框里做限制：例如只允许输入数字
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

追问

不行啊，是Adodc1.Recordset.AddNew这里出问题了···