منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] التعديل في احد اصفف DataGridView - نسخة قابلة للطباعة

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

التعديل في احد اصفف DataGridView - dubai.eig - 23-03-19

السلام عليكم ورحمة الله

عندي كود يسحب الداتا من قاعدة البيانات من موقعي وينزلهم في ال DataGridView

المشكله عندي في الوقت

ينزل الوقت 
كذا
00:00:00

كمثال

اريد اغير الى 
00:00

كود :
If itm3.Length = 8 Then
                   timek = itm3.Substring(3)
               End If


يعني امسح اول ثلاث ارقام 

بس حاولت ما ضبط معاي

[attachment=21218]

هذا الكود


كود :
Private Sub BackgroundWorker2_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker2.DoWork


       Using cmd As New MySqlCommand(String.Format("SELECT id,dati,time,mode,band FROM cq_qso Where dxcallsign like '{0}' and cals like '{1}' order by dati DESC ", Opencontest, Label10.Text))
           cmd.Connection = connection
           cmd.CommandType = CommandType.Text
           Using sda As New MySqlDataAdapter(cmd)
               sda.Fill(table)
               ProgressBar2.Maximum = table.Rows.Count - 0
               BackgroundWorker2.ReportProgress(table.Rows.Count - 0)
           End Using
       End Using
   End Sub


   Private Sub BackgroundWorker2_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles BackgroundWorker2.ProgressChanged
       ProgressBar2.Value = e.ProgressPercentage
       Me.Label12.Text = e.ProgressPercentage & " Percent Completed!"
   End Sub


   Private Sub BackgroundWorker2_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker2.RunWorkerCompleted
       Me.ProgressBar2.Visible = False
       Label12.Text = "DONE!"
       Cursor = Cursors.Default

       For Each row As DataRow In table.Rows

           dgvSelectAll.Rows.Add(row.ItemArray)
           Label11.Text = dgvSelectAll.Rows.Count - 0
           Label11.Text = String.Format("Number of QSO : {0}  ", Label11.Text)
       Next


   End Sub


بحثت كثير بس ما حصلت حل

افيدوني بارك الله فيكم

وشكرا

RE: التعديل في احد اصفف DataGridView - حريف برمجة - 24-03-19

في جملة الإستعلام وجلب البيانات ضع شرطك كالتالي :


كود :
select id,dati,time.Substring(0, 5),mode,band.........
الكود السابق افضل ..
وهناك حل آخر وهو بعد جلب البيانات وتعبئة الداتاقريدفيو تعمل حلقة فور لوب وتقوم بحذف آخر ثلاثة خانات من حقل التايم المجودة في القريدفيو

RE: التعديل في احد اصفف DataGridView - dubai.eig - 24-03-19

(24-03-19, 04:50 AM)حريف برمجة كتب : في جملة الإستعلام وجلب البيانات ضع شرطك كالتالي :


كود :
select id,dati,time.Substring(0, 5),mode,band.........
الكود السابق افضل ..
وهناك حل آخر وهو بعد جلب البيانات وتعبئة الداتاقريدفيو تعمل حلقة فور لوب وتقوم بحذف آخر ثلاثة خانات من حقل التايم المجودة في القريدفيو

تسلم استاذي على الرد الكريم

قمت بالتجربه بس ما ضبط

مسج الغلط

كود :
execute command denied to user 'a4_qsl'@'%' for routine 'time.Substring'


وشكرا لك من جديد

RE: التعديل في احد اصفف DataGridView - حريف برمجة - 24-03-19

جرب التالي :


كود :
select id,dati,SUBSTRING(time, 0, 5) AS time,.......


RE: التعديل في احد اصفف DataGridView - dubai.eig - 24-03-19

تعديل .......



حصلت كود وقمت بتجربه وضبط الحمدالله

كود :
   Private Sub dgvSelectAll_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles dgvSelectAll.CellFormatting
       If e.ColumnIndex = dgvSelectAll.Columns("Column3").Index Then
           If e.Value.ToString.Length > 5 Then
               e.Value = e.Value.ToString.Substring(3)
           End If
       End If
   End Sub
(24-03-19, 11:31 AM)حريف برمجة كتب : جرب التالي :


كود :
select id,dati,SUBSTRING(time, 0, 5) AS time,.......


ضبط معاي الحمدالله Smile

شكرا لك 

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

RE: التعديل في احد اصفف DataGridView - حريف برمجة - 24-03-19

(24-03-19, 11:36 AM)dubai.eig كتب : تعديل .......



حصلت كود وقمت بتجربه وضبط الحمدالله

كود :
   Private Sub dgvSelectAll_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles dgvSelectAll.CellFormatting
       If e.ColumnIndex = dgvSelectAll.Columns("Column3").Index Then
           If e.Value.ToString.Length > 5 Then
               e.Value = e.Value.ToString.Substring(3)
           End If
       End If
   End Sub
(24-03-19, 11:31 AM)حريف برمجة كتب : جرب التالي :


كود :
select id,dati,SUBSTRING(time, 0, 5) AS time,.......


ضبط معاي الحمدالله Smile

شكرا لك 

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

بالتوفيق يارب للجميع