分数很好拿的！！！！！！！！！

给你一个例子，看看对你有没有帮助Public Property Get getLeave()         '在DATAGRID1中选中的一行数据
Dim col As New Collection
Dim k As Integer
If rss.RecordCount > 0 Then
    rss.MoveFirst
    For k = 0 To DataGrid1.Book - 2
        rss.MoveNext
    Next kcol.Add rss.Fields("dateid")
col.Add rss.Fields("startspecday")
col.Add rss.Fields("endspecday")
col.Add rss.Fields("yuanying")End If
Set getLeave = col
End Property
Private Sub DelLeaveDate()                       '删除已有的班次
On Error GoTo MyErr
Dim col As Collection
Set col = getLeave
Dim StartDate As Date
Dim EndDate As Date
Dim UserId As Long
Dim YuanYing As String
Dim DateId As IntegerUserId = Combo1.ItemData(Combo1.ListIndex)
DateId = col.Item(1)
StartDate = col.Item(2)Dim sqk As String
sqk = "delete from user_speday where userid =" & UserId & " and dateid=" & DateId & " and startspecday= #" & StartDate & "# "
cnnView.Execute (sqk)
MsgBox "该请假记录已经删除成功！"
DataGrid1Show
End Sub
MyErr:
    MsgBox Err.Description
End Sub