+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعده في إخفاء Rows (/showthread.php?tid=34696)
مساعده في إخفاء Rows - alshandodi - 10-05-20
السلام عليكم ورحمه الله وبركاته اخواني الاعزاء
يوجد لدي سطرين في الداتاا جريد فيو أرىد اخفاءهم وفي البحث لا أريد أن تظهر في الداتا جريد فيو
ولكم جزيل الشكر والتقدير
RE: مساعده في إخفاء Rows - aljzazy - 10-05-20
كود :
DataGridView1.Rows(1).Visible = FalseRE: مساعده في إخفاء Rows - alshandodi - 10-05-20
لك جزيل الشكر والتقدير اخي العزيز ولكن اريد إخفاء المستخدمين admin و adminstrator وإذا اخفيت السطر الأول سيختفي الذي يكون في الأول
RE: مساعده في إخفاء Rows - aljzazy - 10-05-20
اطرح كود جلب البيانات
RE: مساعده في إخفاء Rows - alshandodi - 10-05-20
استخدم هذا الكود في الموديول لتعبئة داتا جريد فيو
كود :
Function FillDataTable(StrSQL As String) As DataTable
Dim dtFill As New DataTable
Try
dtFill.Clear()
Dim da As New OleDb.OleDbDataAdapter(StrSQL, con)
da.Fill(dtFill)
Catch ex As Exception
End Try
Return dtFill
End Functionفي تحميل الفورم اضع هذا الكود
كود :
Dim dt1 As New DataTable
Dim StrSQL1 As String = "select * from Users_Permission"
dt1 = FillDataTable(StrSQL1)
DataGridView1.DataSource = dt1في زر البحث هذا الكود
كود :
Dim dt1 As DataTable
If CBSearch.SelectedIndex = 0 Then
Dim StrSQL1 As String = "select * from Users_Permission where EmpID like '" & TxtSearch.Text.Trim & "' "
dt1 = FillDataTable(StrSQL1)
DataGridView1.DataSource = dt1اريد اخفاء مصمم البرنامج ومدير البرنامج
[attachment=24688]
RE: مساعده في إخفاء Rows - سعود - 10-05-20
اعمل حلقة تلف الصفوف وتحقق من المسمى فان كان باسم Admin او غيره اخف الصف.
PHP كود :
Public Class Form1
Dim da As OleDb.OleDbDataAdapter
Dim dt As DataTable
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=" & CurDir() & "\db.accdb"
Using con As New OleDb.OleDbConnection(str)
da = New OleDb.OleDbDataAdapter("select * from tb", con)
dt = New DataTable
da.Fill(dt)
d.DataSource = dt
Dim i As Integer
d.Columns(0).Visible = False
d.Columns(1).Width = 95
d.Columns(2).Width = 70
d.Columns(3).Width = 70
For i = 0 To d.Rows.Count - IIf(d.AllowUserToAddRows, 2, 1)
Dim t As String = d.Rows(i).Cells(1).Value
If t.Trim.ToLower = "admin" Then
d.Rows(i).Visible = False
Else
d.Rows(i).Visible = True
End If
Next
End Using
End Sub
End Class
لاحظ اني اخفيت عمود الاي دي
RE: مساعده في إخفاء Rows - alshandodi - 10-05-20
لكم جزيل الشكر والتقدير اخواني الأعزاء
لم ينجح الكود ولا اعلم اين الخطاء
فعندما اضغط على البوتن لا تظهر التي عليها صح وعندما اضغط مره اخرى يظهر هذا الخطا
[attachment=24691]
فحاولت باضافة عمود Boolean
واضفت هذا الكود ولكن يظهر لي خطاء
[attachment=24692]
كود :
For i = 0 To dt.Rows.Count - IIf(d.AllowUserToAddRows, 2, 1)
Dim t As Boolean = d.Rows(i).Cells("Hideandshow").Value
If t = True Then
d.Rows(i).Visible = False
Else
d.Rows(i).Visible = True
End If
NextRE: مساعده في إخفاء Rows - سعود - 10-05-20
المثال بعد التعديل وذلك باضافة عمود hide من نوع (نعم/لا) للجدول
PHP كود :
Public Class Form1
Dim da As OleDb.OleDbDataAdapter
Dim dt As DataTable
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=" & CurDir() & "\db.accdb"
Using con As New OleDb.OleDbConnection(str)
da = New OleDb.OleDbDataAdapter("select * from tb", con)
dt = New DataTable
da.Fill(dt)
d.DataSource = dt
Dim i As Integer
d.Columns(0).Visible = False
Dim dc As Integer = d.Columns.Count - 1
d.Columns(dc).Visible = False
d.Columns(1).Width = 95
d.Columns(2).Width = 70
d.Columns(3).Width = 70
For i = 0 To d.Rows.Count - IIf(d.AllowUserToAddRows, 2, 1)
d.Rows(i).Visible = Not dt.Rows(i).Item(dc)
Next
End Using
End Sub
End Class
PHP كود :
For i = 0 To d.Rows.Count - IIf(d.AllowUserToAddRows, 2, 1)
d.Rows(i).Visible = Not dt.Rows(i).Item(dc)
Next
dc متغير يحمل رقم الاندكس الخاص بعمود الاخفاء لكي يخفيه ومن خلاله نعرف قيمة كل صف اذا كانت القيمة المخزنة نعم تكون قيمة الصف في القريد عكس ذلك باستخدام المعامل Not لان القصد اخفاء
RE: مساعده في إخفاء Rows - alshandodi - 10-05-20
لك جزيل الشكر والتقدير اخي سعود واخي aljzazy
على محاولتكم مساعدتي نجح الكود الذي من عندك اخي سعود وبعد تمعن كبير غيرت استعلام تعبئة داتا جريد فيو الأ وهو هذا الكود واتمنى للجميع دوام الصحه والعافيه وحفظكم الله من كل مكروه
كود :
Sub filldgv2()
Try
Dim DTUSERS As New DataTable
DTUSERS.Rows.Clear()
adapter = New OleDb.OleDbDataAdapter("select * from Users_Permission where Hideandshow = " & False, con)
adapter.Fill(DTUSERS)
DataGridView1.DataSource = DTUSERS
Catch ex As Exception
End Try
End SubRE: مساعده في إخفاء Rows - سعود - 10-05-20
(10-05-20, 05:17 PM)alshandodi كتب : لك جزيل الشكر والتقدير اخي سعود واخي aljzazyسبحان الله هل كنت تريد هذا من الاساس؟
على محاولتكم مساعدتي نجح الكود الذي من عندك اخي سعود وبعد تمعن كبير غيرت استعلام تعبئة داتا جريد فيو الأ وهو هذا الكود واتمنى للجميع دوام الصحه والعافيه وحفظكم الله من كل مكروه
كود :
Sub filldgv2()
Try
Dim DTUSERS As New DataTable
DTUSERS.Rows.Clear()
adapter = New OleDb.OleDbDataAdapter("select * from Users_Permission where Hideandshow = " & False, con)
adapter.Fill(DTUSERS)
DataGridView1.DataSource = DTUSERS
Catch ex As Exception
End Try
End Sub
كنت اظنك تريد شيء شبيه بالفلترة من التطبيق (الواجهة)
على كل حال الحمدلله انك توصلت للطريقة اللتي تريد.