[smalw]

(19-12-19, 09:42 PM)محمد اسماعيل كتب : السلا معليكم ورحمة الله وبركاتة

اريد نقل او نسخ بيانات الداتاجريد فيو الي الداتاسيت مع فورمات الاعمدة لنصي0و1و2  ورقمي3 وتجاهل العمود الاول0.

كود :

Dim dt As New DataTable
'dt.Columns.Add("col0", GetType(String)) ' تجاهل
dt.Columns.Add("col1", GetType(String))
dt.Columns.Add("col2", GetType(String))
dt.Columns.Add("col3", GetType(Integer))

For Each row As DataGridViewRow In DATAG_CLIEN.Rows
   If row.IsNewRow Then Exit For

   'Dim value0 = row.Cells(0).Value ' تجاهل
   Dim value1 = row.Cells(1).Value
   Dim value2 = row.Cells(2).Value
   Dim value3 = Val(row.Cells(3).Value)

   Dim neworw = dt.Rows.Add
   'neworw.Item("col0") = value0' تجاهل
   neworw.Item("col1") = value1
   neworw.Item("col2") = value2
   neworw.Item("col3") = value3
Next