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

[liuhongjun1979]

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

这几句是什么意思？请教一下

[csdnHelp]

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

[daisy8675]

mark現在沒有時間看ing!!

明天看

[射天狼]

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)

[zhujiechang]

grdWork.Row = grdWork.Row 这句话应该是废话.

grdWork.Col = 1: ContNum = grdWork.Text
grdWork.Col = 2: ConDate = grdWork.Text
取得当前行第一列和第二列的值.(0列起头)