(15-07-24, 10:05 AM)تركي الحلواني كتب : جرب هذا 

PHP كود :

cn.Open()
Dim filterColumn As String = cboFilter.Text
Dim searchText As String = txtSearch.Text


Dim validColumns As New List(Of String) From {"Column1", "Column2", "Column3"} ' استبدل Column1, Column2, Column3 بأسماء الأعمدة الفعلية

If validColumns.Contains(filterColumn) Then
    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 " & filterColumn & " LIKE @searchText"

    cm = New SqlCommand(query, cn)
    cm.Parameters.AddWithValue("@searchText", "%" & searchText & "%")

    dr = cm.ExecuteReader()
Else
    MessageBox.Show("Invalid filter column selected.")
End If 


(15-07-24, 10:14 AM)raedre22 كتب :

(15-07-24, 10:05 AM)تركي الحلواني كتب : جرب هذا 

PHP كود :

cn.Open()
Dim filterColumn As String = cboFilter.Text
Dim searchText As String = txtSearch.Text


Dim validColumns As New List(Of String) From {"Column1", "Column2", "Column3"} ' استبدل Column1, Column2, Column3 بأسماء الأعمدة الفعلية

If validColumns.Contains(filterColumn) Then
    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 " & filterColumn & " LIKE @searchText"

    cm = New SqlCommand(query, cn)
    cm.Parameters.AddWithValue("@searchText", "%" & searchText & "%")

    dr = cm.ExecuteReader()
Else
    MessageBox.Show("Invalid filter column selected.")
End If 


شكرا جزيلا سوف اجرب ان شاء الله
الاخ تركي للتوضيح لم يعمل لدي الكود
للتوضيح كود البحث يعرض على داتا جرد فيو هذا الكود كامل

  Sub LoadRecords()
      Dim i As Integer = 0
      Dim total As Double = 0
      DataGridView1.Rows.Clear()
      cn.Open()
      cm = New SqlCommand("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 '%" & txtSearch.Text & "%'", cn)
      dr = 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

(15-07-24, 11:50 AM)تركي الحلواني كتب : جرب هذا 

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"

    cm = New SqlCommand(query, cn)
    cm.Parameters.AddWithValue("@SearchText", "%" & txtSearch.Text & "%")

    dr = cm.ExecuteReader()

     DataGridView
    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 


(15-07-24, 12:28 PM)تركي الحلواني كتب : الصورة غير موجودة
لو ترفق مثال ليتم التعديل

(15-07-24, 02:35 PM)تركي الحلواني كتب : الغيها

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"

    cm = New SqlCommand(query, cn)
    cm.Parameters.AddWithValue("@SearchText", "%" & txtSearch.Text & "%")

    dr = 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