منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
الفلتر عن طريق ال Buttons - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : الفلتر عن طريق ال Buttons (/showthread.php?tid=22624)



الفلتر عن طريق ال Buttons - khaled12345 - 19-11-17

السلام عليكم ورحمة الله وبركاته

الاخوة الاعزاء برجاء المساعدة في هذا الكود المرفق للفلتر من داخل الجدول
من عمود اسمه
Operational_Categorization_Tier2

بحيث عند الضغط علي ال Button اللي اسمه Access مثلا يعرض من الجدول

كل الحالات اللي اسمها Acces

مع العلم هذا الجدول يجمع الداتا تبعه من ثلاث جداول اخري

مع جزيل الشكر


RE: الفلتر عن طريق ال Buttons - a.ahmed - 19-11-17

PHP كود :
Private Sub Button1_Click(ByVal sender As ObjectByVal e As EventArgsHandles Button1.Click

    Dim sql 
As String =
        
"SELECT *                                           " _
        
"FROM   ( Select * From [ERC_Long_Aged]             " _
        
"         UNION ALL                                 " _
        
"         SELECT * FROM [HUA_Long_Aged]             " _
        
"         UNION ALL                                 " _
        
"         SELECT * FROM [NSN_Long_Aged]             " _
        
"       ) T                                         " _
        
"WHERE  Operational_Categorization_Tier2 = 'Access' "

    
Using da As New SqlDataAdapter(sqlconnSQLServer)
        
Dim dt As New DataTable
        TextBox1
.Text da.Fill(dt)
        
Me.DataGridView1.DataSource dt
    End Using

End Sub 



RE: الفلتر عن طريق ال Buttons - khaled12345 - 19-11-17

(19-11-17, 03:36 AM)a.ahmed كتب :
PHP كود :
Private Sub Button1_Click(ByVal sender As ObjectByVal e As EventArgsHandles Button1.Click

    Dim sql 
As String =
 
       "SELECT *                                           " _
        
"FROM   ( Select * From [ERC_Long_Aged]             " _
        
"         UNION ALL                                 " _
        
"         SELECT * FROM [HUA_Long_Aged]             " _
        
"         UNION ALL                                 " _
        
"         SELECT * FROM [NSN_Long_Aged]             " _
        
"       ) T                                         " _
        
"WHERE  Operational_Categorization_Tier2 = 'Access' "

 
   Using da As New SqlDataAdapter(sqlconnSQLServer)
 
       Dim dt As New DataTable
        TextBox1
.Text da.Fill(dt)
 
       Me.DataGridView1.DataSource dt
    End Using

End Sub 

مشكوووور يا هندسة ...

ربنا يبارك فيك يارب

الكود يعمل تمام التمام مع جزيل الشكر