منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : الفلتر عن طريق ال Buttons
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته

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

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

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

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

مع جزيل الشكر
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 
(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 

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

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

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