[فراس الغزي]

(01-05-18, 08:07 PM)عبدالله الدوسري كتب : حاول تضع الكود كامل هنا ... الكود الذي وضعتة ناقص .. لا توجد الأجزاء الخاصة بالداتا قريد فيو

السلام  عليكم  

  اخي  العزيز  
  هالكود  موجود فيه  كود  الدتا  جريد  واليك  الكود  الخاص بالدتاجريد فيو  تحياتي  اليك  

كود :

[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]Sub fillpro()[/font][/size][/color]

[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        Dt.Rows.Clear()[/font][/size][/color]
[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        adapter = New MySqlDataAdapter("select * from company", con)[/font][/size][/color]

[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        adapter.Fill(Dt)[/font][/size][/color]
[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        Me.DataGrid.DataSource = Dt[/font][/size][/color]
[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        DataGrid.Columns(0).HeaderText = "التسسلسل"[/font][/size][/color]
[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        DataGrid.Columns(1).HeaderText = "أسم الشركة"[/font][/size][/color]
[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        DataGrid.Columns(2).HeaderText = "رقم الفاتورة"[/font][/size][/color]
[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        DataGrid.Columns(3).HeaderText = "مبلغ الفاتورة"[/font][/size][/color]
[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        DataGrid.Columns(4).HeaderText = "المبلغ المدفوع"[/font][/size][/color]
[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        DataGrid.Columns(5).HeaderText = "رقم الحوالة"[/font][/size][/color]
[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        DataGrid.Columns(6).HeaderText = "تاريخ التحويل"[/font][/size][/color]
[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        DataGrid.Columns(7).HeaderText = "المبلغ المتبقي"[/font][/size][/color]
[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        DataGrid.Columns(8).HeaderText = "تاريخ الشراء"[/font][/size][/color]
[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        DataGrid.Columns(9).HeaderText = "رقم الهاتف"[/font][/size][/color]
[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        DataGrid.Columns(10).HeaderText = "عنوان الشركة"[/font][/size][/color]
[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        DataGrid.Columns(11).HeaderText = "الملاحظات "[/font][/size][/color]
[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]    End Sub[/font][/size][/color]

   

---

Sub fillpro()

        Dt.Rows.Clear()
        adapter = New MySqlDataAdapter("select * from company", con)

        adapter.Fill(Dt)
        Me.DataGrid.DataSource = Dt
        DataGrid.Columns(0).HeaderText = "التسسلسل"
        DataGrid.Columns(1).HeaderText = "أسم الشركة"
        DataGrid.Columns(2).HeaderText = "رقم الفاتورة"
        DataGrid.Columns(3).HeaderText = "مبلغ الفاتورة"
        DataGrid.Columns(4).HeaderText = "المبلغ المدفوع"
        DataGrid.Columns(5).HeaderText = "رقم الحوالة"
        DataGrid.Columns(6).HeaderText = "تاريخ التحويل"
        DataGrid.Columns(7).HeaderText = "المبلغ المتبقي"
        DataGrid.Columns(8).HeaderText = "تاريخ الشراء"
        DataGrid.Columns(9).HeaderText = "رقم الهاتف"
        DataGrid.Columns(10).HeaderText = "عنوان الشركة"
        DataGrid.Columns(11).HeaderText = "الملاحظات "
    End Sub