> > Public Sub testDatarows() > Dim oDt As New DataTable > oDt.Columns.Add("Field1", GetType(String)) > oDt.Columns.Add("Field2", GetType(String)) > oDt.Columns.Add("Field3", GetType(String)) > Dim odr As DataRow = oDt.NewRow > odr("Field1") = "value 1" > odr("Field2") = "value 2" > odr("Field3") = "value 3" > oDt.Rows.Add(odr) > oDt.NewRow() > oDt.ImportRow(odr) > oDt(oDt.Rows.Count - 1)("Field3") = "value 4" > For Each odr In oDt.Rows > Debug.Print(odr("Field1") & "- " & odr("field2") & "-" & odr("Field3")) > Next > End Sub >>
>> Public Sub testDatarows() >> Dim oDt As New DataTable >> oDt.Columns.Add("Field1", GetType(String)) >> oDt.Columns.Add("Field2", GetType(String)) >> oDt.Columns.Add("Field3", GetType(String)) >> Dim odr As DataRow = oDt.NewRow >> odr("Field1") = "value 1" >> odr("Field2") = "value 2" >> odr("Field3") = "value 3" >> oDt.Rows.Add(odr) >> >> ' will add a new row >> oDt.ImportRow(odr) >> ' then change the newly added row >> oDt.Rows(dt.Rows.Count-1).Items("Field3") = "value 4" >> >> For Each odr In oDt.Rows >> Debug.Print(odr("Field1") & "- " & odr("field2") & "-" & odr("Field3")) >> Next >> End Sub >>>>
>>> Public Sub testDatarows() >>> Dim oDt As New DataTable >>> oDt.Columns.Add("Field1", GetType(String)) >>> oDt.Columns.Add("Field2", GetType(String)) >>> oDt.Columns.Add("Field3", GetType(String)) >>> Dim odr As DataRow = oDt.NewRow >>> odr("Field1") = "value 1" >>> odr("Field2") = "value 2" >>> odr("Field3") = "value 3" >>> oDt.Rows.Add(odr) >>> odr("Field3") = "value 4" >>> oDt.Rows.Add(odr) >>> For Each odr In oDt.Rows >>> Debug.Print(odr("Field1") & "- " & odr("field2") & "-" & odr("Field3")) >>> Next >>> End Sub >>>>>>It breaks at the second
>>>oDt.Rows.Add(odr) >>>>>>
>>> odr = oDt.NewRow >>>>>>