تحديث مباشر للكومبوبوكس - نسخة قابلة للطباعة

تحديث مباشر للكومبوبوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تحديث مباشر للكومبوبوكس (/showthread.php?tid=3671)

تحديث مباشر للكومبوبوكس - djelloul - 19-08-14

مرحيا
ألف مبروك على الستايل الجديد الأزرق له نظرة جميلة على الموقع زاده روعة ورونق

الأخوة الكرام لي فورم اسمه Achats به كومبوبوكس مرتبط بقاعدة بيانات أكسس حقل موردين، هو يشتغل والحمد لله لكن أثناء العمل لو أحتجت إلى استدعاء مورد ولم أجده وضعت زر استدعاء فورم آخر أسمه Nouveau Fournisseur لتسجيل مورد جديد، فبعد حفظ هذا المورد الجديد أريد كيف يتم إضافة هذا المورد الجديد إلى الكومبوبوكس الذي هو بفورم Achats دون إغلاق هذا الأخير وإعادة فتحه
أرجو أن أكون قد أوصلت الفكرة

شكرا لكم

RE: تحديث مباشر للكومبوبوكس - سعود - 19-08-14

الامر بسيط اخي
ضع اكواد استدعاء البيانات في روتين مستقل وقم بمناداته كل مااحتجت اليه.

RE: تحديث مباشر للكومبوبوكس - djelloul - 19-08-14

مرحبا
شكرا لك أخي
لكن أنا مجرد مبتدأ ولا فكرة لدي عن الروتين فهل ممكن تتكرم وتعطيني فكرة

شكرا لك مرة ثانية

RE: تحديث مباشر للكومبوبوكس - kslawy - 20-08-14

قصد سعود تضع الكود اللي تملء به الكمبوبوكس في إجراء مستقل كالتالي:

كود :

Sub FillComboBox()

  Dim Dsview As New DataView

  Dim FournisseursBindingSource As New BindingSource()

  FournisseursBindingSource.DataSource = Dsview

  ComboBox1.DataSource = FournisseursBindingSource

  ComboBox1.DisplayMember = "Société"

  ComboBox1.ValueMember = "ID"

End Sub

تضع الاجراء FillComboBox عند تحميل الفورم .

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       FillComboBox()

    End Sub

بالنسبة لتحديث البيانات دون الاضطرار لغلق النموذج ضع زر أمر بجانب أداة الكمبوبوكس سمه (تحديث) في حدث الضغط الخاص بالزر تضع أيضاً الإجراء FillComboBox

****
***
**
*

RE: تحديث مباشر للكومبوبوكس - djelloul - 20-08-14

مرحبا
شكرا لك فهمت قصدك لكن هل يمكن بدلا من وضع زر جديد يتم وضع تايمر، وإن كان هذا ممكنا فكيف يمكن ذلك
آسف ربما أثقلت عليك فأرجو المعذرة
شكرا لك

RE: تحديث مباشر للكومبوبوكس - سعود - 21-08-14

أخي الكريم
حين تضيف سجل جديد ضع بعده مباشرة روتين استدعاء البيانات.

RE: تحديث مباشر للكومبوبوكس - HASAN6.0 - 25-08-14

اخي الكريم
في الفورم الثاني وبعد نجاح الاضافة اكتب الكود التالي

Me.DialogResult=Windows.Forms.DialogResult.OK

وفي الفورم الاول اكتب

PHP كود :

If Nouveau_Fournisseur.ShowDialog = Windows.Forms.DialogResult.OK Then
' هنا ضع كود اضافة مثلا
            Me.ComboBox1.Items.Add(Nouveau_Fournisseur.Textbox1.Text.Trim)
        End If 

طبعا الجملة في الكود الاول بدلا من جملة .show او .showdialog