تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعبئة داتا جريد من جدولين مرتبطين ؟
#1
السلام عليكم ورحمة الله وبركاته
اسأل الله العظيم لكم جميعا الصحة والعافية
سؤالي :
لدي جدولين مخلفين استعلمت عن شرط كالتالي :
كود :
SQL = "SELECT *,* FROM Tab_Users INNER JOIN Tab_User_Kinds ON Tab_Users.User_Kind = '" & Cmb_Search.SelectedIndex & "'  And Tab_Users.User_Kind = Tab_User_Kinds.G_ID"
أريد الان تعبئة داتا جريد فيو
لكن لا أعرف كيف أرجع القيمة من الجدول الثاني لوضعها بمكانها المناسب في داتا جريد

كود :
       DGV_Names.Rows.Clear()

       Dim i As Integer
       For i = 0 To Dt.Rows.Count - 1

           DGV_Names.Rows.Add()
           DGV_Names.Rows(i).Cells(0).Value = i + 1
           DGV_Names.Rows(i).Cells(1).Value = Dt.Rows(i).ItemArray(1)
           DGV_Names.Rows(i).Cells(2).Value = Dt.Rows(i).ItemArray(2)

           'If Dt.Rows(i).ItemArray(2) = "0" Then DGV_Names.Rows(i).Cells(2).Value = "مدير"
           'If Dt.Rows(i).ItemArray(2) = "1" Then DGV_Names.Rows(i).Cells(2).Value = "مستخدم"

           DGV_Names.Rows(i).Cells(3).Value = Dt.Rows(i).ItemArray(3)                               ' كلمة المرور

           DGV_Names.Rows(i).Cells(4).Value = Dt.Rows(i).ItemArray(5)

           'If Dt.Rows(i).ItemArray(4) = "0" Then DGV_Names.Rows(i).Cells(4).Value = "لا يعمل" ' حالة المستخدم
           'If Dt.Rows(i).ItemArray(4) = "1" Then DGV_Names.Rows(i).Cells(4).Value = " يعمل" ' حالة المستخدم

       Next
       closeDB()
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم