(15-07-24, 06:28 PM)تركي الحلواني كتب : لو ترفق مثال ليتم التعديل عليه.

(16-07-24, 03:23 AM)Zuhare كتب :

PHP كود :

Sub LoadRecords()
    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 " & cboFilter.Text & " 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  


(17-07-24, 07:39 AM)Zuhare كتب :

PHP كود :

Sub LoadRecords()
    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 " & cboFilter.Text & " 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  


(17-07-24, 10:11 AM)Zuhare كتب : المشكله في محتوى cboFilter.Text فماذا يوجد بيها؟

---

المفروض يكون في cboFilter.Text اسم عمود صحيح بدون مسافات