Скажите что делаю не правильно?
Просто все зависает и все не чего не происходит, мож есть способ просто скопировать один DataTable в нужный
code
Me.Pony_vgeneralwaybillTableAdapter.Fill(Me.PonyDataSet.pony_vgeneralwaybill)
Me.VGeneralWaybillTableAdapter.Fill(Me.Main1DataSet.vGeneralWaybill)
Dim WaybillNumber As String
Dim WaybillDate As String
Dim ORG As String
Dim DEST As String
Dim S_Code As String
Dim S_Name As String
Dim S_CompanyTitle As String
Dim S_City As String
Dim S_Country As String
Dim S_Address As String
Dim C_Name As String
Dim C_CompanyTitle As String
Dim C_City As String
Dim C_Country As String
Dim C_Address As String
Dim ShipmentDescription As String
Dim Items As Integer
Dim Weight As Single
Dim Payer As Integer
Dim ServiceCode As String
Dim DeliveryDT As String
Dim Consignee As String
Dim i As Integer
Dim j As Integer
For i = 0 To Me.Main1DataSet.vGeneralWaybill.Rows.Count

WaybillNumber = Me.Main1DataSet.vGeneralWaybill.Rows(i)("WaybillNumber")
WaybillDate = Me.Main1DataSet.vGeneralWaybill.Rows(i)("WaybillDate")
ORG = Me.Main1DataSet.vGeneralWaybill.Rows(i)("ORG")
DEST = Convert.ToString(Me.Main1DataSet.vGeneralWaybill.Rows(i)("DEST"))
S_Code = Convert.ToString(Me.Main1DataSet.vGeneralWaybill.Rows(i)("S_Code"))
S_Name = Convert.ToString(Me.Main1DataSet.vGeneralWaybill.Rows(i)("S_Name"))
S_CompanyTitle = Convert.ToString(Me.Main1DataSet.vGeneralWaybill.Rows(i)("S_CompanyTitle"))
S_City = Me.Main1DataSet.vGeneralWaybill.Rows(i)("S_City")
S_Country = Me.Main1DataSet.vGeneralWaybill.Rows(i)("S_Country")
S_Address = Me.Main1DataSet.vGeneralWaybill.Rows(i)("S_Address")
C_Name = Convert.ToString(Me.Main1DataSet.vGeneralWaybill.Rows(i)("C_Name"))
C_CompanyTitle = Convert.ToString(Me.Main1DataSet.vGeneralWaybill.Rows(i)("C_CompanyTitle"))
C_City = Me.Main1DataSet.vGeneralWaybill.Rows(i)("C_City")
C_Country = Me.Main1DataSet.vGeneralWaybill.Rows(i)("C_Country")
C_Address = Me.Main1DataSet.vGeneralWaybill.Rows(i)("C_Address")
ShipmentDescription = Convert.ToString(Me.Main1DataSet.vGeneralWaybill.Rows(i)("ShipmentDescription"))
Items = Me.Main1DataSet.vGeneralWaybill.Rows(i)("Items")

If Me.Main1DataSet.vGeneralWaybill.Rows(i)("Weight") Is DBNull.Value Then
Weight = 0
Else
Weight = Convert.ToSingle(Me.Main1DataSet.vGeneralWaybill.Rows(i)("Weight"))
End If

Payer = Me.Main1DataSet.vGeneralWaybill.Rows(i)("Payer")
ServiceCode = Me.Main1DataSet.vGeneralWaybill.Rows(i)("ServiceCode")
DeliveryDT = Me.Main1DataSet.vGeneralWaybill.Rows(i)("DeliveryDT")
Consignee = Me.Main1DataSet.vGeneralWaybill.Rows(i)("Consignee")

For j = 0 To (Me.PonyDataSet.pony_vgeneralwaybill.Rows.Count - 1)
If WaybillNumber = Me.PonyDataSet.pony_vgeneralwaybill.Rows(j)("WaybillNumber") Then
ins = False
End If
If ins = False Then
If Me.PonyDataSet.pony_vgeneralwaybill.Rows(j)("Consignee") = "" Then
up = True
End If
End If
Next
If ins = True Then
Dim row As DataRow = Me.PonyDataSet.pony_vgeneralwaybill.NewRow()
row("WaybillNumber") = WaybillNumber
row("WaybillDate") = WaybillDate
row("ORG") = ORG
row("DEST") = DEST
row("S_Code") = S_Code
row("S_Name") = S_Name
row("S_CompanyTitle") = S_CompanyTitle
row("S_City") = S_City
row("S_Country") = S_Country
row("S_Address") = S_Address
row("C_Name") = C_Name
row("C_CompanyTitle") = C_CompanyTitle
row("C_City") = C_City
row("C_Country") = C_Country
row("C_Address") = C_Address
row("ShipmentDescription") = ShipmentDescription
row("Items") = Items
row("Weight") = Weight
row("Payer") = Payer
row("ServiceCode") = ServiceCode
row("DeliveryDT") = DeliveryDT
row("Consignee") = Consignee
Me.PonyDataSet.pony_vgeneralwaybill.Rows.Add(row)
ins = False
End If
If ins = False And up = True Then
Dim filter As String = "WaybillNumber='" & WaybillNumber.ToString() & "'"
Dim upRows As DataRow() = Me.PonyDataSet.pony_vgeneralwaybill.Select(filter)
upRows(0).BeginEdit()
upRows(0)("DeliveryDT") = DeliveryDT
upRows(0)("Consignee") = Consignee
upRows(0).EndEdit()
up = False
End If
Next
Me.Pony_vgeneralwaybillTableAdapter.Update(Me.PonyDataSet.pony_vgeneralwaybill)

Попробовал... Видать слишком много записей
125 000
Очень медлено(((
Всеравно спасибо!