Dim DS_C as New DS Dim dr_A As DS_C.Tbl_ARow Me.DS_C.Tbl_A.Clear() Dim bo As PDSA.DataLayer.tbl_BDC = New PDSA.BusinessLayer.tbl_B With bo .ConnectionString = AppConfig.SQLConnectString .SelectFilter = PDSA.DataLayer.tbl_BDC.SelectFilters.All .WhereFilter = tbl_BDC.WhereFilters.None .Load() End With For Each dr As DataRow In bo.DataSet.Tables(0).Rows dr_A = DS_C.Tbl_A.NewRow With dr_A .CustomerID = bo.CustomerID .FirstName = bo.FirstName .LastName = bo.LastName .Street = bo.Street .City = bo.City .State = bo.State .ZipCode = bo.ZipCode End With DS_C.Tbl_A.AddTbl_ARow(dr_A) Next
.CustomerID = dr("CustomerID") .FirstName = dr("FirstName") .LastName = dr("LastName") .Street = dr("Street") .City = dr("City") .State = dr("State") .ZipCode = dr("ZipCode")
.FirstName = bo.FirstName .LastName = bo.LastName .Street = bo.Street .City = bo.City .State = bo.State .ZipCode = bo.ZipCode
bo
dr
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)