帮我看看，急---关于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 这句似无意义。
后面两句是取1、2列的值。

Answer 2

不知你这用的是什么控件,不过应该可以用以下语句代替:ContNum = grdWork.TextMatrix (grdWork.Row, 1)
ConDate = grdWork.TextMatrix (grdWork.Row, 2)