KARIMSOFT

Me.ListBox1.Items.Add(CInt(Int((26 * Rnd()) + 0)))

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

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click Randomize() Dim num As Integer num = Int(Rnd(26) * 10) Me.Label2.Text = Me.ListBox1.Items.Item(num)

انت تضشع مشورعك في المكان الخطء هذا المنتدي vb.net not vb6 ولكن علي حب ما اذكر Me.CrystalReport1.Action = 0 ot Me.CrystalReport1.Action = 7

شكرا للمجامله انت مبالغ في العبقري كريم سوفت

وضح اكثر

ماذا تقصد بسرع هل هي سرعة المعالجة ام التفاعل من المستخدم

شكرا للاخ mmfouad والاخ ahamied علي الكلام الجميل وانا اسف لم اقرء الكود بل حيلت المشكله المهم ممكن اللغاء forبعمل الاستعلام الاول ينسخ القيمه 1 من التينبي واستعلام اخر تحديثي لارجاع القيما للصفر في الجدول الاول

=QIDE_A2.Form!Sdebit

Label1.Text = (this.BindingContext[this.MY_DataSet.Information].Position + 1).ToString() +","+ (this.BindingContext[this.MY_DataSet.Information].Count).ToString();

هذا عمل جيد ولكن لو هذه المساحة2048 ميجا علي host يكون افضل جزاك الله كل خير

المثال مرفق TestLab.rar

الاولي لا اعلم عنا سيء اما الثانية فربما كتبتها من غير واجه لذلك تظهر بالاسفل لو ممكن تبعت الكونترور كي نراي ما المشكله

ابحث في المنتدي عن page break

نعم اسم الليبل الذي سيظهر قيمة الحقل

مباشرتا لا يمكن ولكن الحل هو ان يتوم بتسجيل ما فعلته علي النص مثل html اقراء في برمجة html <p> karim </p> لا يقراء الاقواس بل يترجمها

ممكن توضح شويه وترفق المثال

انشاء قيمه عامه dim i as bool form_load i=true end sub keypress if i=true theb exit sub end sub

ابحث عن lockKB

DataSetهي الافضل والاسرع