الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة الكمبوكس بعد البحث يصبح فارغ

بدأه العنزي252 في 15 فبراير 2012 · 5 رد · 435 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

عندي فورم فيه أكثر من كومبوكس و أكثر من خاصية للبحث لكن بعد تنفيذ أي عملية بحث

أجد أن الكومبوس فارغ .... فما الحل لعدم تفريغ الكومبوكس بعد البحث

بيانات الكومبوكس من جدول غير الجدول الذي أعمل عليه :

 Me.BranchTBLTableAdapter.Fill(Me.fawazgDataSet.BranchTBL)

وكود البحث 

Dim DataAdapter As New OleDbDataAdapter("SELECT * FROM recepttbl WHERE recept_date  >= #" & a & "#  And  recept_date <= #" & b & "# ", con)
        con.Open()
        fawazgDataSet.Clear()
        DataAdapter.Fill(fawazgDataSet, "recepttbl")
        If Me.BindingContext(fawazgDataSet, "recepttbl").Count = 0 Then
            MsgBox("لا يوجد تقرير حسب التاريخ المدخل", 48 + 524288, "البحث")
            con.Close()
            Exit Sub
        Else
            fawazgDataSet.Clear()
            DataAdapter.Fill(fawazgDataSet, "recepttbl")
            Me.ReportViewer3.RefreshReport()
            con.Close()
            Exit Sub
        End If

أنا غيرت الداتا إلى fawazgdataset

و السبب عشان reportviewer

وهذا سبب إنه الكومبوكس تختفي بياناته ؟؟؟؟؟ ولو استخدمت قاعدة جديدة new data ما يطلع معي reportviewer وش الحل ؟

#2

وعليكم السلام ورحمة الله وبركاته ..

أخي ما هو الكود المستخدم لتعبئة الكومبو ؟؟ تأكد أن لا يكون الداتا سيت الخاص بالبحث هو نفسه الداتاسيت المستخدم كسورس للكومبو ,,,,,

... إذا كنت تعتقد أن مشاركتي مفيده ، الرجاء قم بتقييمي ...

%2525D8%2525A8%2525D8%2525B5%2525D9%252585%2525D8%2525A9%252B%2525D8%2525B9%2525D9%252584%2525D9%252585%252B%2525D9%252588%2525D8%2525B5%2525D8%2525B1%2525D8%2525AE%2525D8%2525A9%252B%2525D8%2525A7%25

#3
عاشق للبرمجة كتب:

وعليكم السلام ورحمة الله وبركاته ..

أخي ما هو الكود المستخدم لتعبئة الكومبو ؟؟ تأكد أن لا يكون الداتا سيت الخاص بالبحث هو نفسه الداتاسيت المستخدم كسورس للكومبو ,,,,,

بدون كود ... باستخدام اعدادات الكومبوكس ...

post-249100-094220600 1329328960_thumb.g

<a class=post-249100-094220600 1329328960_thumb.g' alt='post-249100-094220600 1329328960_thumb.g'>

أنا أستخدم نفس اسم الداتا في البحث عشان ( ريبورت فيور )

 Me.ReportViewer3.RefreshReport()

فلو استتخدمت اسم ثاني مثلاً Dim DataSet1 As New DataSet لا يظهر معي التقرير

وسبب تفريغ الكومبوكس والله اعلم هو :::

fawazgDataSet.Clear()

علماً أن الكومبوكس من نفس الداتا السابقه

  Me.BranchTBLTableAdapter.Fill(Me.fawazgDataSet.BranchTBL)

المطلوب هو .... حل لمشكلة الكمبوكس سواءاً بكود خاص لربط الكمبوكس ... أو في حال تغيير اسم الداتا طريقة ربطها في الريبورت فيور

المرفقات
بدون-عنوان-2.gif

تم تعديل هذه المشاركة بواسطة العنزي252 في 15 فبراير 2012 في 21:23

#4

أوكي .. استخدم الكود التالي لتعبئة الكومبوبوكس :

Dim DataAdapter2 As New OleDbDataAdapter("Select * from الجدول where الشروط الخ")

dim DS as new Dataset
ds.Clear
DataAdapter2.fill(DS,"الجدول الذي استخدمته في الاستعلام")

combobox1.datasource = DS.Tables(0).DefaultView
Combobox1.DisplayMember = "اسم الحقل في الجدول"
            Combobox1.ValueMember = "اسم الحقل في الجدول"

وبالامكان استخدام نفس الكود السابق لتعبئة أي كومبوبوكس آخر إذا كان الاستعلام يحقق نفس الشرط ، فقط غير خاصية DisplayMember و ValueMember ...

1

... إذا كنت تعتقد أن مشاركتي مفيده ، الرجاء قم بتقييمي ...

%2525D8%2525A8%2525D8%2525B5%2525D9%252585%2525D8%2525A9%252B%2525D8%2525B9%2525D9%252584%2525D9%252585%252B%2525D9%252588%2525D8%2525B5%2525D8%2525B1%2525D8%2525AE%2525D8%2525A9%252B%2525D8%2525A7%25

#5

الله يعطيك العافيه ...

هذا المطلوب :::

بس بع إذنك أضفت عليه :::

Dim DataAdapter2 As New OleDbDataAdapter("Select * from collectorTBL", con)

ما كانت موجوده

", con

كفيت وفيت

#6

الله يعافيك ، والكونكشن ضروري بالتأكيد ( نسيته :lol: )

... إذا كنت تعتقد أن مشاركتي مفيده ، الرجاء قم بتقييمي ...

%2525D8%2525A8%2525D8%2525B5%2525D9%252585%2525D8%2525A9%252B%2525D8%2525B9%2525D9%252584%2525D9%252585%252B%2525D9%252588%2525D8%2525B5%2525D8%2525B1%2525D8%2525AE%2525D8%2525A9%252B%2525D8%2525A7%25

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…