高手帮忙
Option ExplicitPrivate Sub Command1_Click()
Dim strNews, i%
strNews = Array("考勤月份", "姓名", "编号", "缺勤次数")
For i = 0 To 3 '验证设定的工资标准
If Text1(i) = "" Then
MsgBox strNews(i) & "级工资标准不能为空，且必须为数字", _
vbCritical, "职务工资标准设定"
Text1(i).SetFocus
Text1(i).SelStart = 0
Text1(i).SelLength = Len(Text1(i))
Exit Sub
End If
Next
With Wage_Manage_Data.rsKaoWage
If .RecordCount = 0 Then .AddNew
.Fields("考勤月份") = Text1(0)
.Fields("姓名") = Text1(1)
.Fields("编号") = Text1(2)
.Fields("缺勤次数") = Text1(3)
.Update
End With
MsgBox "数据保存成功！", vbInformation, "考勤信息"
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
If .RecordCount = 0 Then .AddNew对象关闭时 不允许操作这是为什么？？？ --------------------编程问答-------------------- 路过帮顶 --------------------编程问答-------------------- Wage_Manage_Data.rsKaoWage
从哪来的？ --------------------编程问答-------------------- With Wage_Manage_Data.rsKaoWage
这个定义了么？里面有数据么？ --------------------编程问答-------------------- 定义了 --------------------编程问答-------------------- 这提示不是很明显了么,说你的数据库对象是关闭状态的.
补充：VB , 数据库(包含打印，安装，报表)
