سؤال عن أداة flexgrid

ساجيبك على بعض الاستفسارات وليست كلها

ثم أنتي لم تحديدي نوع ربط البيانات ولم ترفقي مثال لتوضيح ما تريدين حتى يمكن التعديل عليه

اقتباس

كيف أستطيع محي محتويات خلية في أداةflexgrid بالضغط على مفتاحdelete أو backespace

Private Sub FlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
    'HnHn 
اذا كان الزر المضغوط زر حذف أو تراجع قم بعمل 
    If vbKeyDelete Or vbKeyBack Then
    
    FlexGrid1.Col = Y
    FlexGrid1.TextMatrix(X, Y) = ""

    End If
       
End Sub

X ترمز إلى الصف

Y ترمز إلى العمود

اقتباس

إذا قمنا بتعديل البيانات على flexgrid و أردنا حفظ ذلك التعديل

لو فرضنا أنك تستخدمين الترقيم التلقائي في القاعدة .. حيث سيكون مكان الرقم التلقائي في الاداة العمود الاول

أذا عن تحديد او النقر على الخليه المراد تعديل بياناتها احفظ الرقم التلقائي في متغير S لكي يتم الانتقال بواسطته إلى مكان السجل

لتحديث بياناته كما يلي

Private Sub FlexGrid1_Click()

Dim s As Integer
FG = False
If FlexGrid1.Rows = 1 Then Exit Sub
s = FlexGrid1.TextMatrix(FlexGrid1.Row, 1)

        rs.Find "[ID] = " & s & "", 0, adSearchForward, 1
        If .EOF Then Exit Sub

وضعي كود تحديث البيانات تحت حدث بعد انتقال التركيز من على الاداة وهكذا تتم عملية التحديث بسرعه

Private Sub FlexGrid1_LostFocus()
ضعي هنا كود تحديث البيانات كالتالي
rs.fildes(1) = FlexGrid1.TextMatrix(FlexGrid1.Row, 1)
rs.updata
وهكذا مع البقية 
End Sub

أشكرك أخي الكريم

ما أريده هو كتابة بيانات في هذه الأداة يدويا و محيها و حفظ التعديلات عليها كما أريد الكتابة في الخلايا الثابتة يدويا و حفظها كذلك

و قد حاولت تغيير الأداة و استخدام أداة datagrid بدلا عنها و لكن لم تحقق المطلوب

ربما الملف المرفق يوضح ذلك أتمنى أن أجد ضالتي عندكم

table.zip

أختى الكريمة.. فاطمة

لقد استقبلت برنامجك واطلعت عليه وقمت بتعديله باستخدام ال DataGrid.

أرجو أن يحوز رضاكى.

عاطف قشيشة

مبرمج مصري.

table.zip

أشكرك أخ عاطف

الأداة dataGrid تتميز بليونة أكثر من أداة flexGrid من حيث الكتابة و المحي و الحفظ و لكن لم أجد حلا فيها للكتابة يدويا في الخلايا الثابتة (عناوين الأعمدة و عناوين الأسطر) لذلك فكرت في وضع مربعات النصوص على تلك الخلايا و لكن لم أعرف كيف أحرك تلك المربعات مع شريط التمرير

أختي الكريمة فاطمة

آسف لتأخري في الرد عليك.

يمكنك تغيير عنوان العمود بالكود التالي:

DataGrid1.Columns(0).Caption = "العنوان المطلوب"

أما عناوين الصفوف فلا حاجة إليها، حيث يمكنك إضافة حقل إلى قاعدة البيانات يكون هو عنوان الصف.

أرجو أن تكوني قد وجدت ضالتك، وإذا لم يف هذا بالغرض فأنا مستعد لتلبية طلبك بأية وسيلة تختارينها من وسائل البرمجة.

وعلى كل حال فأنا أنوي نشر مثال قريباً بإذن الله باستخدام أدوات القائمة Listboxs ومربعات النص Textboxes للتعامل مع قواعد البيانات بليونة أكبر من حيث الإضافة والتعديل والحذف.

والله الموفق.

عاطف قشيشة

مبرمج مصري