المشاركات : 240
المواضيع 23
الإنتساب : Mar 2014
السمعة :
20
الشكر: 831
تم شكره 299 مرات في 151 مشاركات
20-08-18, 07:41 PM
(آخر تعديل لهذه المشاركة : 20-08-18, 07:42 PM {2} بواسطة essawq.)
السلام عليكم ورحمة الله وبركاتة
اعمل على برنامج قواعد بيانات
عند تحميل الفورم تظهر البيانات بالداتا جريد فيو
وتظهر البيانات بالتكست بكس
لدي حقل بقاعدة البيانات نوع mony
كان يعرض هذا الحقل داخل الداتا جريد فيو مثلا اذا كانت القيمة المدخلة 1.5 كان يعرظها 1.50000
تم الحل بهذا الكود
كود :
DgvPrent.Columns(5).DefaultCellStyle.Format = "0.0
التكست بكس المرتبط بنفس الحقل يعرض القيمة المدخلة مثلا 1.5 يعرضها 1.50000
اريد ان يعرضها 1.5
تحياتي لكم
المشاركات : 3,815
المواضيع 36
الإنتساب : Mar 2014
السمعة :
724
الشكر: 7238
تم شكره 6709 مرات في 3265 مشاركات
وعليكم السلام ورحمة الله وبركاته
لنقول انك تثوم بتعبئة القيمة بهذا الشكل كمثال
كود :
TextBox1.Text = kima
فقط اجعلها مضاف عليها هذا الجزء بالنهاية
كود :
TextBox1.Text = kima.ToString("0.0")
بمعنى ان تقوم باضافة هذا الجزء باخرها
وهو سيقوم بتنسيق الارقام لتصبح كما فعلت فى الداتا جريد
تحياتى لك
وتمنياتى لك التوفيق
المشاركات : 240
المواضيع 23
الإنتساب : Mar 2014
السمعة :
20
الشكر: 831
تم شكره 299 مرات في 151 مشاركات
السلام عليكم
مشكور اخي لردك وكل عام وانتم بخير
انا احمل البيانات في حدث الفورم لود بالكود التالي load date
كود :
Public Sub load_data()
dt = New DataTable
da = New SqlDataAdapter("select *from woork1", conn)
da.Fill(dt)
dv = New DataView(dt)
End Sub
واحمل البيانات للتكت بوكس بالكود التالي في حدث الفورم لود BinData1()
كود :
Public Sub BinData1()
FrmAdd.Textrecid.DataBindings.Clear()
FrmAdd.TexCompany.DataBindings.Clear()
FrmAdd.ComboBoxDay.DataBindings.Clear()
FrmAdd.DateTimePicker1.DataBindings.Clear()
FrmAdd.TxtInformisen.DataBindings.Clear()
FrmAdd.TxtHouer.DataBindings.Clear()
FrmAdd.TxtNotes.DataBindings.Clear()
FrmAdd.Textrecid.DataBindings.Add("text", dt, "ID")
FrmAdd.TexCompany.DataBindings.Add("text", dt, "Name_Company")
FrmAdd.ComboBoxDay.DataBindings.Add("text", dt, "day")
FrmAdd.DateTimePicker1.DataBindings.Add("text", dt, "alyowm")
FrmAdd.TxtInformisen.DataBindings.Add("text", dt, "informisen"))
FrmAdd.TxtHouer.DataBindings.Add("text", dt, "clook")
FrmAdd.TxtNotes.DataBindings.Add("text", dt, "notes")
End Sub
هذا هو التكست بكس الذي يعرض الاصفار
كود :
FrmAdd.TxtHouer.DataBindings.Add("text", dt, "clook")
لا اعرف اخي اين اضع الكود
بارك اللة فيك
المشاركات : 1,556
المواضيع 14
الإنتساب : Apr 2013
السمعة :
253
الشكر: 3551
تم شكره 4875 مرات في 1243 مشاركات
بعد العرض ضع هذا السطر :
كود :
FrmAdd.TxtHouer.Text = Val(FrmAdd.TxtHouer.Text).ToString("0.0")
المشاركات : 240
المواضيع 23
الإنتساب : Mar 2014
السمعة :
20
الشكر: 831
تم شكره 299 مرات في 151 مشاركات
20-08-18, 09:52 PM
(آخر تعديل لهذه المشاركة : 20-08-18, 09:55 PM {2} بواسطة essawq.)
(20-08-18, 09:20 PM)حريف برمجة كتب : بعد العرض ضع هذا السطر :
كود :
FrmAdd.TxtHouer.Text = Val(FrmAdd.TxtHouer.Text).ToString("0.0")
مشكور اخي وبارك الله فيك وبميزان حسناتك وكل عام وانت بخير
اخذت الكود كوبي بيست بعد العرض طبعا وضعتة في اكثر من محل مثل ازرار التنقل وحدث سيل كلك للداتا جريد ويعمل مليون بالمئة
تحيياتي لك
المشاركات : 3,815
المواضيع 36
الإنتساب : Mar 2014
السمعة :
724
الشكر: 7238
تم شكره 6709 مرات في 3265 مشاركات
الاخ حريف برمجة
لا قصر فى الرد سريعاً
واضافة لما قدمه يمكنك استخدام ايضاً الاسلوب بطريقة اخرى
عن طريق استخدم الكود التالى اسفل الكود لديك
كود :
FrmAdd.TxtHouer.Text = Math.Round(Val(FrmAdd.TxtHouer.Text), 1)
أو استبدال السطر التالى
كود :
FrmAdd.TxtHouer.DataBindings.Add("text", dt, "clook")
بالسطر التالى
كود :
FrmAdd.TxtHouer.Text = Val(dt(0)("clook")).ToString("0.0")
تحياتى لك
وتمنياتى لك التوفيق
المشاركات : 240
المواضيع 23
الإنتساب : Mar 2014
السمعة :
20
الشكر: 831
تم شكره 299 مرات في 151 مشاركات
20-08-18, 09:54 PM
(آخر تعديل لهذه المشاركة : 20-08-18, 09:54 PM {2} بواسطة essawq.)
(20-08-18, 09:07 PM)essawq كتب : السلام عليكم
مشكور اخي لردك وكل عام وانتم بخير
انا احمل البيانات في حدث الفورم لود بالكود التالي load date
كود :
Public Sub load_data()
dt = New DataTable
da = New SqlDataAdapter("select *from woork1", conn)
da.Fill(dt)
dv = New DataView(dt)
End Sub
واحمل البيانات للتكت بوكس بالكود التالي في حدث الفورم لود BinData1()
كود :
Public Sub BinData1()
FrmAdd.Textrecid.DataBindings.Clear()
FrmAdd.TexCompany.DataBindings.Clear()
FrmAdd.ComboBoxDay.DataBindings.Clear()
FrmAdd.DateTimePicker1.DataBindings.Clear()
FrmAdd.TxtInformisen.DataBindings.Clear()
FrmAdd.TxtHouer.DataBindings.Clear()
FrmAdd.TxtNotes.DataBindings.Clear()
FrmAdd.Textrecid.DataBindings.Add("text", dt, "ID")
FrmAdd.TexCompany.DataBindings.Add("text", dt, "Name_Company")
FrmAdd.ComboBoxDay.DataBindings.Add("text", dt, "day")
FrmAdd.DateTimePicker1.DataBindings.Add("text", dt, "alyowm")
FrmAdd.TxtInformisen.DataBindings.Add("text", dt, "informisen"))
FrmAdd.TxtHouer.DataBindings.Add("text", dt, "clook")
FrmAdd.TxtNotes.DataBindings.Add("text", dt, "notes")
End Sub
هذا هو التكست بكس الذي يعرض الاصفار
كود :
FrmAdd.TxtHouer.DataBindings.Add("text", dt, "clook")
لا اعرف اخي اين اضع الكود
بارك اللة فيك
مشكور اخي وبارك الله فيك ما قصرت وكل عام وانت بخير
المشاركات : 3,815
المواضيع 36
الإنتساب : Mar 2014
السمعة :
724
الشكر: 7238
تم شكره 6709 مرات في 3265 مشاركات
الشكر لله
تحياتى لك
وتمنياتى لك التوفيق
المشاركات : 240
المواضيع 23
الإنتساب : Mar 2014
السمعة :
20
الشكر: 831
تم شكره 299 مرات في 151 مشاركات
(20-08-18, 09:53 PM)elgokr كتب : الاخ حريف برمجة
لا قصر فى الرد سريعاً
واضافة لما قدمه يمكنك استخدام ايضاً الاسلوب بطريقة اخرى
عن طريق استخدم الكود التالى اسفل الكود لديك
كود :
FrmAdd.TxtHouer.Text = Math.Round(Val(FrmAdd.TxtHouer.Text), 1)
أو استبدال السطر التالى
كود :
FrmAdd.TxtHouer.DataBindings.Add("text", dt, "clook")
بالسطر التالى
كود :
FrmAdd.TxtHouer.Text = Val(dt(0)("clook")).ToString("0.0")
تحياتى لك
وتمنياتى لك التوفيق
السلام عليكم
لم ارى ردك
تم الاحتفاظ بالكودين
وياريت اصبح من محترفي البرمجة من امثالك وامثال الكثيرين في هذا المنتدى الرائع بكل ما يقدم من محتوى وكل الاعظاء المنتسبين الذين لا يتاخرون في مساعدة اي شخص سواء كان مبتديء او متوسط او متقدم في البرمجة
شكرا لك وكل عام وانت بالف خير
المشاركات : 1,556
المواضيع 14
الإنتساب : Apr 2013
السمعة :
253
الشكر: 3551
تم شكره 4875 مرات في 1243 مشاركات
استمر في البحث والتجربة والصبر حتى تتقن البرمجة لاشي مستحيل اخي essawq
اخي الكريم elgokr
جزاك الله خير على ما تقدمه والله يجعلها في موازين حسناتك يالغالي .
|