VB 参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突
源代码PrivateSubCommand3_Click()DimuserIDAsStringIfMe.DataGrid1.ApproxCount>0ThenpunishI...
源代码
Private Sub Command3_Click()
Dim userID As String
If Me.DataGrid1.ApproxCount > 0 Then
punishId = DataGrid1.Columns(0).CellText(DataGrid1.Bookmark)
Me.Adodc1.Recordset.MoveFirst
Me.Adodc1.Recordset.Find ("编号=" + userID)
Me.Adodc1.Recordset.Delete adAffectCurrent
If Me.Adodc1.Recordset.RecordCount > 0 Then
Me.Adodc1.Recordset.MoveNext
If Me.Adodc1.Recordset.EOF Then
Me.Adodc1.Recordset.Requery
Me.Adodc1.Recordset.MoveLast
End If
Else
Me.Adodc1.Recordset.Requery
Set Me.DataGrid1.DataSource = Me.Adodc1.Recordset
End If
End If
End Sub
错误在Me.Adodc1.Recordset.Find ("编号=" + userID),是什么原因 展开
Private Sub Command3_Click()
Dim userID As String
If Me.DataGrid1.ApproxCount > 0 Then
punishId = DataGrid1.Columns(0).CellText(DataGrid1.Bookmark)
Me.Adodc1.Recordset.MoveFirst
Me.Adodc1.Recordset.Find ("编号=" + userID)
Me.Adodc1.Recordset.Delete adAffectCurrent
If Me.Adodc1.Recordset.RecordCount > 0 Then
Me.Adodc1.Recordset.MoveNext
If Me.Adodc1.Recordset.EOF Then
Me.Adodc1.Recordset.Requery
Me.Adodc1.Recordset.MoveLast
End If
Else
Me.Adodc1.Recordset.Requery
Set Me.DataGrid1.DataSource = Me.Adodc1.Recordset
End If
End If
End Sub
错误在Me.Adodc1.Recordset.Find ("编号=" + userID),是什么原因 展开
3个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询