پاک کردن یک ردیف در گرید

[evilboy]

سلام
من از فلکس گرید 8 استفاده میکنم
میخوام یک ردیف رو حذف کنم ولی نمی دونم چرا نمیشه یعنی میشه ولی 2 تا حذف پشت سر هم که میکنم ارور میده بعضی وقتا هم ظاهرا پاک میشه ولی وقتی یک بار از فرم خاج میشم و دوباره برمیگردم میبینم حذف نشده.
وقتی هم ارور میده به خط زیر گیر میده

DataEnvironment1.Recordsets(a).Deleteاین هم کد حذف

Dim a As String
Dim n As VbMsgBoxResult
Dim w As VbMsgBoxResult
a = VSFlexGrid1.DataMember
n = MsgBox("آيا مي خواهيد رکورد جاري حذف شود", vbInformation + vbYesNo + vbDefaultButton2, "Message!")
If n = vbYes Then
If VSFlexGrid1.Row <= 0 Then
MsgBox "رکوردي براي حذف وجود ندارد", vbInformation + vbOKOnly, "Message!"
Else
DataEnvironment1.Recordsets(a).Delete
End If
End If
If DataEnvironment1.rsCommand1.RecordCount = 0 Then
MsgBox "رکوردي براي حذف وجود ندارد", vbInformation + vbOKOnly, "Message!"
Else
Set VSFlexGrid1.DataSource = DataEnvironment1
VSFlexGrid1.DataMember = "Command1"
اگه دوستان با کد دیگه ای کار میکنن لطفا راهنمایی کنن
یخورده خیلی عجله دارم
ممنون

[rezankh]

من هم اين مشكل رو داشتم ولي در نهايت از يك دكمه استفاده كرده بدين شكل كه ركورد رو روي گريد انتخاب و با زدن دكمه حذف وارد فرم جديدي مي‌شدم كه تو اون فرم، ركورد رو به تنهايي فيلتر مي‌كرد و با زدن دكمه حذف ركورد حذف مي شد.
نحوه فيلتر كردن ركورد در فرم حذف :
در خاصيت change يكي از كمبوها كد زير رابنويسيد:
Private Sub Combo20_Change()
On Error GoTo ErrorHandle

Adodc1.Recordset.Find "Personel='" & Combo20.Text & "'"

Combo15.DataField = "Name"
Combo16.DataField = "Family"
Command4.Enabled = True

ErrorHandle:
Resume Next

و در نهايت در قسمت دكمه حذف كدهاي موجود در عكس رو مي‌نويسم :

[evilboy]

یعنی نمیشه توی همون صفحه اون رکورد رو حذف کرد؟

[evilboy]

یکی نیست ما رو راهنمایی کنه؟

[Mbt925]

DataEnvironment1.Recordsets(a).Delete
DataEnvironment1.Recordsets(a).UpdateBatch

[rezankh]

يك سري به اينجا بزن حتما اينهم بدردت مي‌خوره

http://barnamenevis.org/forum/showthread.php?t=105419