(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")

لا اعرف اخي اين اضع الكود 

بارك اللة فيك

(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")

تحياتى لك

وتمنياتى لك التوفيق