[vbnet]

.....

احذف أداة DataGrid الموجودة وضع أخرى جديدة بدون أن تربطها أو تعمل أي حاجة، فقط ضع هذا الكود وسيقوم باللازم

كود :

Private Sub Form_Load()
    With DataGrid1
    
        ' ربط الأداة بأداة قاعدة البيانات
        Set .DataSource = Me.Adodc1
        
        ' العمود الأول
        .Columns(0).Caption = "#"
            .Columns(0).DataField = "id"
            .Columns(0).NumberFormat = "000"
            .Columns(0).Width = 420
        
        ' العمود الثاني
        .Columns(1).Caption = "الاسم"
            .Columns(1).DataField = "name"
            .Columns(1).Width = 1095
        
        ' العمود الثالث
        .Columns(2).Caption = "الرقم"
            .Columns(2).DataField = "militaryid"
            .Columns(2).Width = 900
        
        ' العمود الرابع
        .Columns(3).Caption = "القسم"
            .Columns(3).DataField = "unity"
            .Columns(3).Width = 2190
            
        ' العمود الخامس
        .Columns(4).Caption = "الموبايل"
            .Columns(4).DataField = "mobile"
            .Columns(4).Width = 1200
            
        ' العمود السادس
        .Columns(5).Caption = "التاريخ"
            .Columns(5).DataField = "date"
            .Columns(5).NumberFormat = "yyyy/MM/dd"
            .Columns(5).Width = 1095
            
    End With
End Sub

لنسخ الكود بدون ما تتغير الأحرف العربية أجعل لوحة المفاتيح على اللغة العربية قبل النسخ

.....