تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] txtsearch
#1
السلام عليكم
ارجو المساعده في جعل (textbox) الخاص في البحث ان يبحث بعدة طرق او بعدة اوامر مثلا
حاليا لديه txtsearch موجود  على فورم الست فيو(listvew) يبحث برقم فاتورة البيع فتظهر معلومات الفاتورة كاملا
الذي اريده هو
ان ان اجعل الـ txtsearch يبحث في التاريخ او اسم العميل وغيرها من المعلومات الموجوده داخل الست فيو حيث جربت


حيث جربت اغير حقل الخاصر بالبحث من (id) الى date لم تنجح وادناة الكود


Private Sub txtsearch_Change()
If txtsearch = "" Or rs.RecordCount = 0 Then
check_RS
rs.Open "select * from sales", Cnn
fill
Else
check_RS
rs.Open "select * from sales where salesno = " & txtsearch, Cnn
fill
check_RS1
rs1.Open "select * from sales_total where sales_no = " & txtsearch, Cnn
If rs1.RecordCount <> 0 Then
Set lst = salesList.ListItems.Add(, , "")
     lst.SubItems(3) = "Total Amount : "
     lst.SubItems(4) = rs1(1)


End If
End If


If txtsearch = "" Then
cmdShow.Enabled = False
Else
cmdShow.Enabled = True
End If
الرد }}}
تم الشكر بواسطة:
#2
شكرا استاذ ولكن مع الاسف يقوم بجمع المبلغ الاجمالي فقط للكل وتبقى كل التواريخ ظاهره حينما اكتب مثلا 6/5/2015 والمقصود ما ابيع بهذا التاريخ تبقى كل التواريخ السابقة ظاهره
اتمنى اجد لديك الحل في وضع اكثر من تيكست بحث وكل بحث يختص بامر معين
وتقبل ودي واحترامي
الرد }}}
تم الشكر بواسطة:
#3
افرغ اللست قبل ان تجري عملية بحث جديدة
ضع هذا الكود lst.Clear في بداية عملية البحث

PHP كود :
Private Sub cmdSearch_Click()

    lst.Clear
    Dim sql 
As String
    
If IsDate(txtOredrDateThen sql " AND sales_date = #" txtOredrDate "#"
    If IsNumeric(txtOrderNoThen sql " AND sales_no = " txtOrderNo
    
If Trim(txtName) <> "" Then sql " AND sales_name = '%" txtName "%'"
    check_RS
    rs
.Open "select * from sales Where 1=1 " sqlCnn
    fill
    check_RS1
    rs1
.Open "select * from sales_total Where 1=1 " sqlCnn
    
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 
الرد }}}
تم الشكر بواسطة: sami2015
#4
شكرا لك استاذ محمد العبيدي ( ابو جاسم)
ولكن مع الاسف لاتنجح هذه العملية لان تكيست البحث اصلا يعمل بشكل جيد ولكن برقم الفاتوره فتظهر كل المعلومات ومنها التاريخ
وعندما اضفت هذا الكود يعترض على عملية التنظيف lst.Clear ؟؟؟ علما ان حقل التاريخ اسمه Sdate . فغيرت ذلك
كنت اتمنى ان اجعل تيكست بحث اخر او اكثر يبحث في تاريخ البيع او باسم المشتري (الزبون)
1- جدول البيع باسم (sales)
- حقل التاريخ باسم (sdate)
- حقل الزبون باسم (customer)
وتقبل احترامي وتقديري -
الرد }}}
تم الشكر بواسطة:
#5
عفوا اخي العزيز لاني لم انتبه الی انك قد استخدمت اداة الlistview عتقدت انها listbox
فقط استبدل السطر
lst.Clear وضع بدل عنها lst.listitems.clear
الرد }}}
تم الشكر بواسطة: sami2015
#6
اتعبتك معي اخي محمد
ولكن (( مع الاسف لم تنجح العملية)
تمنياتي لك بالتوفيق
الرد }}}
تم الشكر بواسطة:
#7
اخي ياريت لو ترفع البرنامج للتعديل عليه
لاني انا ايضا اريد اعرف شنو المشكله بالكود
الرد }}}
تم الشكر بواسطة: sami2015
#8
شكرا لك اخ محمد الملف كبير ولا استطيع رفعة وتقبل ودي وتقديري
الرد }}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم