[تركي الحلواني]

كم اخبرك الاخ (Zuhare)
مع وجود بعض التعديل على الكود الخاص به

PHP كود :

Sub LoadRecords()

     Dim filter As String = ""

     If cboFilter.Text = "بالباركود" Then
         filter = "p.ProductBarcode"
     ElseIf cboFilter.Text = "بالمنتج" Then
         filter = "g.GenericName"
     ElseIf cboFilter.Text = "بالشركة" Then
         filter = "b.BrandName"
     ElseIf cboFilter.Text = "بالدولة" Then
         filter = "f.FromulationName"
     ElseIf cboFilter.Text = "بالصنف" Then
         filter = "c.ClassificationName"
     ElseIf cboFilter.Text = "بالنوع" Then
         filter = "t.TypeName"
     ElseIf cboFilter.Text = "بالعدد" Then
         filter = "p.ProductQuantity"
     ElseIf cboFilter.Text = "بسعر الشراء" Then
         filter = "p.ProductBuyPrice"
     ElseIf cboFilter.Text = "بسعر البيع" Then
         filter = "p.ProductSalePrice"
     ElseIf cboFilter.Text = "بالنفاذ" Then
         filter = "p.ProductQuantity"
     Else
         Exit Sub
     End If

     Dim i As Integer = 0
     Dim total As Double = 0
     DataGridView1.Rows.Clear()

     cn.Open()

     Dim query As String = "SELECT * FROM tblProduct AS p " &
                       "INNER JOIN tblGeneric AS g ON p.ProductGeneric = GenericID " &
                       "INNER JOIN tblBrand AS b ON p.ProductBrand = BrandID " &
                       "INNER JOIN tblFromulation AS f ON p.ProductFromulation = FromulationID " &
                       "INNER JOIN tblClassification AS c ON p.ProductClassification = ClassificationID " &
                       "INNER JOIN tblType AS t ON p.ProductType = TypeID " &
                       "WHERE ProductQuantity > 0 AND " & filter & " LIKE '%'+@SearchText+'%'"

     Dim cm As New SqlCommand(query, cn)
     cm.Parameters.AddWithValue("@SearchText", txtSearch.Text)

     Dim dr As SqlDataReader = cm.ExecuteReader()

     While dr.Read()
         i += 1
         total += CInt(dr.Item("ProductQuantity").ToString())
         DataGridView1.Rows.Add(i,
                            dr.Item("ProductID").ToString(),
                            dr.Item("ProductBarcode").ToString(),
                            dr.Item("GenericName").ToString(),
                            dr.Item("BrandName").ToString(),
                            dr.Item("FromulationName").ToString(),
                            dr.Item("ClassificationName").ToString(),
                            dr.Item("TypeName").ToString(),
                            dr.Item("ProductQuantity").ToString(),
                            dr.Item("ProductBuyPrice").ToString(),
                            dr.Item("ProductSalePrice").ToString(),
                            Format(CDate(dr.Item("ProductDate").ToString()), "yyyy/MM"),
                            dr.Item("ProductReorder").ToString())
     End While

     dr.Close()
     cm = Nothing
     cn.Close()

     lblCount.Text = "عدد المنتجات: " & Format(CLng(DataGridView1.Rows.Count), "#,##0") & Space(10) & " كمية المنتجات: " & Format(total, "#,##0")
 End Sub