Question

求企业考勤管理系统VB+ACCESS

也可以帮忙看看这段代码
' ******************************************************************************
'过程名：cboDataUser
'说 明：为用户名列表赋值
'参 数：无
'返回值：无
' ******************************************************************************v
Public Sub cboDataUser()
Dim res As String
Dim txtsql As String
Dim rstcbo As New ADODB.Recordset
Dim i As Integer
txtsql = "select UserId from tbUser"
res = ExecuteSQL(txtsql, rstcbo, False)
If rstcbo.RecordCount <> 0 Then
cboLogin.Clear
rstcbo.MoveFirst
For i = 0 To rstcbo.RecordCount - 1
cboLogin.AddItem (rstcbo.Fields(0))
If Not rstcbo.EOF Then rstcbo.MoveNext
rstcbo.MoveNext
Next
End If
End Sub
显示:实时错误'3704'
对象关闭时,不允许操作
怎么修改呢?

Answer 1

业考勤管理系统VB+ACCESS这个设计你可以搜索一下大学生计算机论坛cccbbs的毕业设计范例，有整套成品毕业设计

Answer 2

说QQ一起研究吧，我这有个企业考勤的模板，不知道你有用没

追问

QQ:510588081

追答

有验证

追问

你多少,我加你吧!