帮我看看，急---关于FlexGrid

Question

Private Sub cmdDelete_Click()
Dim SubConDel As ADODB.Recordset
Dim ContNum As String
Dim ConDate As String
If SubConRs.RecordCount <> 0 Then
         SubConRs.MoveFirst
    If Not SubConRs.EOF Or SubConRs.BOF Then
        If MsgBox("Are you Sure?", vbQuestion + vbYesNo) = vbYes Then
         Set SubConDel = New ADODB.Recordset
         grdWork.Row = grdWork.Row
         grdWork.Col = 1: ContNum = grdWork.Text
         grdWork.Col = 2: ConDate = grdWork.Text
         sqlString = "Select * from SubConWorkDetails where SubConNum=" & _
         Trim(lstSubCon.SelectedItem.SubItems(1)) & _
         " and ContractNo='" & Trim(ContNum) & "' and Date=#" & Format(ConDate, "m/d/yyyy") & "#"
          SubConDel.Open sqlString, DB, adOpenStatic, adLockOptimistic
         If SubConDel.RecordCount <> 0 Then
          SubConDel.Delete
         End If
         ClearGrid
         FromListUpdateRecord
         End If
        End If
   End If
End Sub　　　　　grdWork.Row = grdWork.Row
         grdWork.Col = 1: ContNum = grdWork.Text
         grdWork.Col = 2: ConDate = grdWork.Text这几句是什么意思？请教一下

Answer 1

定位行(grdWork.Row = grdWork.Row)
然后取出这一行的第一列的内容(grdWork.Col = 1: ContNum = grdWork.Text)
            取出这一行的第二列的内容(grdWork.Col = 2: ConDate = grdWork.Text)

Answer 2

grdWork.Row = grdWork.Row 这句话应该是废话.grdWork.Col = 1: ContNum = grdWork.Text
grdWork.Col = 2: ConDate = grdWork.Text
取得当前行第一列和第二列的值.(0列起头)

Answer 3

grdWork.Row = grdWork.Row
         grdWork.Col = 1: ContNum = grdWork.Text
         grdWork.Col = 2: ConDate = grdWork.Text
将当前行第一列和第二列的数据放入变量中,不过第一句没用!!这三行代码可以用下面两句代码代替:ContNum = grdWork.TextMatrix (grdWork.Row, 1)
ConDate = grdWork.Text (grdWork.Row, 2)