كتابة اسماء حقول DATAGRID بالعربي

السلام عليكم

أعمل TableStyle و اكتب اسماء عناوين الأعمدة بالعربي ثم ضمه في الـ DataGrid بهذا الشكل

    '              الكتبُ المؤلفــة
    '              %%%%%%%%%%%%%%%
    '<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    Sub BindingDGBooks()


        ' You must clear out the TableStyles collection before 
        DGBooks.TableStyles.Clear()

        Dim grdTableStyle1 As New DataGridTableStyle
        With grdTableStyle1
            .MappingName = DsMain1.Books.TableName
        End With


        Dim grdColStyle1 As New DataGridTextBoxColumn
        With grdColStyle1
            .MappingName = "ISBN"
            .HeaderText = "رقم الكتاب"
            .Width = 90
            .NullText = String.Empty
        End With

        Dim grdColStyle2 As New DataGridTextBoxColumn
        With grdColStyle2
            .MappingName = "Book"
            .HeaderText = "اسم الكتاب"
            .Width = 300
            .NullText = String.Empty
        End With

        grdTableStyle1.GridColumnStyles.AddRange _
            (New DataGridColumnStyle() {grdColStyle1, grdColStyle2})
        DGBooks.TableStyles.Add(grdTableStyle1)


    End Sub

والله أعلم

فل يسمحو لي الكبار ان اشارك ولو بجزء بسيط حسب علمي وعسى ان اكون وصلت المعلومه

اولاً : اذهب الى خصائص الشبكة اي datagrid لتجد الخاصية التالية TableStylas واضغط زر الانتقال المجاور له .

ثانياً : اضغط زر الاضافة add سيضاف الكائن DtatGridTbableStyle1 للمجوعة . سوف يكون هذا الجدول هو واجهة قاعدة البيانات الموجوده ضمن مجموعة البيانات .

ثالثاً : اختر خاصية MappingName وقم بكتابة اسم الجدول فمثلاً لو كان اسم الجدول في قاعدة البيانات Person فكتبه وهو اسم الجدول في مجموعة البيانات والذي سوف يعرض من خلال هذا dataGrid .

رابعاً :هذه الخطوة سوف تقوم بربط أعمده الجدول الموجود في البيانات هنا لنتمكن من إعطائها خصائص كما نريد . انقر النقاط الثلاثة المقابله لهذه الخاصية ليظهر شكل او نافذه اخرى . اضغط زر الاضافة add ليتم اضافة GridColumnStyle اذهب الى خاصية MappingName وأكتب ID اسم الحقل الاول الموجود في الجدول ليتم ربط هذا الكائن بالعامود ID الموجود في الجدول Person اذهب الى خاصية HeaderText واكتب ( رقم الموظف ) اي اسم الحقل بالعربي . هذا هو ما سيظهر عنوان لعامود رقم الموظف في Datagrid اضف كايناً اخر واهب الى MappingName واكتب name (اي اسم الموظف ) واهب الى خاصية HeaderText واكتب اسم الموظف اضغط OK ثم OK ثم شغل البرنامج

والله اعلم وارجو ان اكون قد وصلت المعلومه

سلام عليكم

وممكن ايضاً عن طريق DataSet

ds.Tables(0).Columns(0).ColumnName = "كود الصنف "
            ds.Tables(0).Columns(1).ColumnName = "اسم الصنف"
            ds.Tables(0).Columns(2).ColumnName = "الموقع"
            ds.Tables(0).Columns(3).ColumnName = "التكلفه"
            ds.Tables(0).Columns(4).ColumnName = "الفئة"
            ds.Tables(0).Columns(5).ColumnName = "رقم المورد"
            DataGrid1.DataSource = ds.Tables("product")

بسم الله الرحمن الرحيم

جزاكم الله خيرا

السلام عليكم

ويمكن تغيير الأسماء أيضا بإستخدام الإسم المستعار alias name ، في جملة الإستعلام

Dim بيانات_المنتج_الأصلية As New OleDb.OleDbDataAdapter("select ItemID as [رقم القطعة],ItemName as [اسم القطعة],ItemType as [النوع],OriginCountry as [بلد المنشأ],ItemNO as [عدد القطع],SalePrice as [ثمن البيع],ItemNO * SalePrice as [الإجمالي], LastChangeDate as [تاريخ آخر تعديل في السعر],Description as [التصنيف] from products where Description like '" & "أصلي" & "' ", con)

myds.Clear()

بيانات_المنتج_الأصلية.Fill(myds, "بيانات_المنتج_الأصلية")

DataGrid1.DataSource = myds.Tables("بيانات_المنتج_الأصلية")

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

والله أعلى وأعلم

وفيه حل اخر

من امر SQL اللي تسويه في Adapter

Select name as الاسم from myTable

:)

وبالتوفيق :rolleyes:

كلام ابوخالد111 صحيح واسهل