[محمد العبيدي]

افرغ اللست قبل ان تجري عملية بحث جديدة
ضع هذا الكود lst.Clear في بداية عملية البحث

PHP كود :

Private Sub cmdSearch_Click()

    lst.Clear
    Dim sql As String
    If IsDate(txtOredrDate) Then sql = " AND sales_date = #" & txtOredrDate & "#"
    If IsNumeric(txtOrderNo) Then sql = " AND sales_no = " & txtOrderNo
    If Trim(txtName) <> "" Then sql = " AND sales_name = '%" & txtName & "%'"
    check_RS
    rs.Open "select * from sales Where 1=1 " & sql, Cnn
    fill
    check_RS1
    rs1.Open "select * from sales_total Where 1=1 " & sql, Cnn
    If rs1.RecordCount <> 0 Then
        Set lst = salesList.ListItems.Add(, , "")
        lst.SubItems(3) = "Total Amount : "
        lst.SubItems(4) = rs1(1)
    End If
    
    If rs.RecordCount = 0 Then
        cmdShow.Enabled = False
    Else
        cmdShow.Enabled = True
    End If
    
End Sub