منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : تحديث مباشر للكومبوبوكس
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
مرحيا
ألف مبروك على الستايل الجديد الأزرق له نظرة جميلة على الموقع زاده روعة ورونق

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

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

شكرا لك مرة ثانية
قصد سعود تضع الكود اللي تملء به الكمبوبوكس في إجراء مستقل كالتالي:
كود :
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


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


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