PDA

View Full Version : حذف در VSFlexGrid1



sajad_boj70
سه شنبه 04 مهر 1391, 17:32 عصر
سلام.
دوستان یک مشکلی که من با VSFlexGrid1 دارم اینه که مثلا وقتی میخوام رکورد 3 رو از VSFlexGrid1 انتخاب کنم و حذف کنم نمیشه و هر رکوردی که انتخاب میکنم و دکمه حذف رو میزنم برنامه رکورد اول رو حذف میکنه.!!!
از این کد استفاده میکنم.

Dim a As Variant

a = MsgBox("ÂíÇ Ñ˜æÑÏ ÍÐÝ ÔæÏ¿", vbExclamation + vbYesNo, "ÍÐÝ")
If a = 6 Then
Adodc1.Recordset.Delete
Adodc1.Refresh
VSFlexGrid1.Refresh
Adodc1.Refresh
VSFlexGrid1.Refresh
End If




چه طوری باید کاری کنم که اون رکوردی که انتخاب کردم حذف بشه.

sajjad_india
چهارشنبه 12 مهر 1391, 11:22 صبح
A=1 باید باشه

SlowCode
چهارشنبه 12 مهر 1391, 11:34 صبح
برای اینکه اشتباه نکنی از vbYes یا vbNo استفاده کن. این کد رو چرا دوبار نوشتی؟
Adodc1.Refresh
VSFlexGrid1.Refresh