11-01-18, 08:35 PM
السلام عليكم ورحمة الله وبركاته
اسأل الله العظيم لكم جميعا الصحة والعافية
سؤالي :
لدي جدولين مخلفين استعلمت عن شرط كالتالي :
أريد الان تعبئة داتا جريد فيو
لكن لا أعرف كيف أرجع القيمة من الجدول الثاني لوضعها بمكانها المناسب في داتا جريد
اسأل الله العظيم لكم جميعا الصحة والعافية
سؤالي :
لدي جدولين مخلفين استعلمت عن شرط كالتالي :
كود :
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()