the content of se0002.txt as shown below:

DeliveryInstruction|Original|648186GB|Transaction History Number|968175659|CallOffNumber|648186GB|||2006|06|22||12|22|55|||||||MASON EC|ECLIPSE COLOUR PRINT LTD|RILEY ROAD|NORTHAMPTON|NN16 8NN|GBTIL|1||Mill Order Number|OFGB-604915|||||870.0|1250|5.0|6368.0|2006|06|23|||||||||||||||||||GBONENDS*reels on end (cheese)|130.0|LINST||||No|
DeliveryInstruction|Original|648186GB|Transaction History Number|968175659|CallOffNumber|648186GB|||2006|06|22||12|22|55|||||||MASON EC|ECLIPSE COLOUR PRINT LTD|RILEY ROAD|NORTHAMPTON|NN16 8NN|GBTIL|1||Mill Order Number|OFGB-604915|||||||5.0|6368.0||||||||||||||||||||||GBADDREF*ELISA|2|UNLOINST||||No|
DeliveryInstruction|Original|648186GB|Transaction History Number|968175659|CallOffNumber|648186GB|||2006|06|22||12|22|55|||||||MASON EC|ECLIPSE COLOUR PRINT LTD|RILEY ROAD|NORTHAMPTON|NN16 8NN|GBTIL|1||Mill Order Number|OFGB-604915|||||||5.0|6368.0||||||||||||||||||||||GBDELREF*Must Quote Delivery Reference:|3|DELINST||||No|
DeliveryInstruction|Original|648186GB|Transaction History Number|968175659|CallOffNumber|648186GB|||2006|06|22||12|22|55|||||||MASON EC|ECLIPSE COLOUR PRINT LTD|RILEY ROAD|NORTHAMPTON|NN16 8NN|GBTIL|1||Mill Order Number|OFGB-604915|||||||5.0|6368.0||||||||||||||||||||||GBTEXTDL*DEL 23/06 ASAP AM|4|DELINST||||No|
DeliveryInstruction|Original|648186GB|Transaction History Number|968175659|CallOffNumber|648186GB|||2006|06|22||12|22|55|||||||MASON EC|ECLIPSE COLOUR PRINT LTD|RILEY ROAD|NORTHAMPTON|NN16 8NN|GBTIL|1||Mill Order Number|OFGB-604915|||||||5.0|6368.0||||||||||||||||||||||GBTEXTEL*|5|DELINST||||No|
DeliveryInstruction|Original|648186GB|Transaction History Number|968175659|CallOffNumber|648186GB|||2006|06|22||12|22|55|||||||MASON EC|ECLIPSE COLOUR PRINT LTD|RILEY ROAD|NORTHAMPTON|NN16 8NN|GBTIL|1||Mill Order Number|OFGB-604915|||||||5.0|6368.0||||||||||||||||||||||N||CustCol6l||||No|

the txt file got 6lines(as show on above) now my task is extract the data between"|" and put them in to dataGridView and stored into table-- calloffline.
. ps: i got two table in database, one is called call_off, another is calloffline they got realtionships ,each line's third element "648186GB"is calloff primary key and calloffline table's foreign key.so i separate each lines first 17 elements belongs to table call_off and the rest of elements belongs to table Calloffline. but when i try to insert these 6lines rest of elements to table calloffline, it only can insert the first two records. can anybody please help me to find out why?


here is my code. i test the loop, it cal read the text file line by line ..but just can't insert these data into dataset...

assume we have one text file which contains six lines and now we want to add these six lines as new six records in a table .. how can i make this ??

Try

Dim n As String
Dim streamobjreader2 As StreamReader = New StreamReader(Se0002.txt)

Dim i As Integer = 0
Do While streamobjreader2.Peek() >= 0


n = streamobjreader2.ReadLine()



'Do
'Dim s As String
'CallOffLineContent = StreamObjReader.ReadLine()
' s = StreamObjReader.ReadLine()



'If (CallOffLineContent <> "") Then

CallOffArr = Split(n, "|")
i = i + 1
'MessageBox.Show(i)
'MessageBox.Show(CallOffArr(35))
newCallOffLineRow("DeliveryNumber") = CallOffArr(2)
newCallOffLineRow("NumberOfLines") = i
newCallOffLineRow("MillCode") = CallOffArr(17)
newCallOffLineRow("MillName") = CallOffArr(18)
newCallOffLineRow("MillAddress") = CallOffArr(19)
newCallOffLineRow("MillCity") = CallOffArr(20)
newCallOffLineRow("MillPostCode") = CallOffArr(21)
newCallOffLineRow("DeliveryCode") = CallOffArr(22)
newCallOffLineRow("DeliveryName") = CallOffArr(23)
newCallOffLineRow("AddressLine") = CallOffArr(24)
newCallOffLineRow("DeliveryCity") = CallOffArr(25)
newCallOffLineRow("PostCode") = CallOffArr(26)
newCallOffLineRow("CollectionDescription") = CallOffArr(27)
newCallOffLineRow("LineNumber") = CallOffArr(28)
newCallOffLineRow("Edition") = CallOffArr(29)
newCallOffLineRow("ReferenceType4") = CallOffArr(30)
newCallOffLineRow("ReferenceValue4") = CallOffArr(31)
newCallOffLineRow("ReferenceType5") = CallOffArr(32)
newCallOffLineRow("ReferenceValue5") = CallOffArr(33)
newCallOffLineRow("ReferenceType6") = CallOffArr(34)
newCallOffLineRow("ReferenceValue6") = CallOffArr(35)
newCallOffLineRow("Width") = CallOffArr(36)
newCallOffLineRow("Diameter") = CallOffArr(37)
newCallOffLineRow("Packages") = CallOffArr(38)
newCallOffLineRow("Weight") = CallOffArr(39)
newCallOffLineRow("DeliveryYear") = CallOffArr(40)
newCallOffLineRow("DeliveryMonth") = CallOffArr(41)
newCallOffLineRow("DeliveryDay") = CallOffArr(42)
newCallOffLineRow("TimeZone") = CallOffArr(43)
newCallOffLineRow("DeliveryHour") = CallOffArr(44)
newCallOffLineRow("DeliveryMinute") = CallOffArr(45)
newCallOffLineRow("DeliverySecond") = CallOffArr(46)
newCallOffLineRow("RangeFromYear") = CallOffArr(47)
newCallOffLineRow("RangeFromMonth") = CallOffArr(48)
newCallOffLineRow("RangeFromDay") = CallOffArr(49)
newCallOffLineRow("RangeFromHour") = CallOffArr(50)
newCallOffLineRow("RangeFromMinute") = CallOffArr(51)
newCallOffLineRow("RangeFromSecond") = CallOffArr(52)
newCallOffLineRow("RangeToYear") = CallOffArr(53)
newCallOffLineRow("RangeToMonth") = CallOffArr(54)
newCallOffLineRow("RangeToDay") = CallOffArr(55)
newCallOffLineRow("RangeToHour") = CallOffArr(56)
newCallOffLineRow("RangeToMinute") = CallOffArr(57)
newCallOffLineRow("RangeToSecond") = CallOffArr(58)
newCallOffLineRow("LocationPartyCode") = CallOffArr(59)
newCallOffLineRow("TrailerType") = CallOffArr(60)
newCallOffLineRow("OtherInstructions") = CallOffArr(61)
newCallOffLineRow("GSM") = CallOffArr(62)
newCallOffLineRow("InstructionCode") = CallOffArr(63)
newCallOffLineRow("PalletWidth") = CallOffArr(64)
newCallOffLineRow("PalletLength") = CallOffArr(65)
newCallOffLineRow("PalletMaxHeight") = CallOffArr(66)
newCallOffLineRow("MixedLoad") = CallOffArr(67)
'EDIAnalysisDataSet.Tables("Call_Off").Rows.Add(newCallOffRow)
EDIAnalysisDataSet.Tables("CallOffLine").Rows.Add(newCallOffLineRow)





Loop

streamobjreader2.Close()
Try
Me.Validate()
Me.CallOffLineBindingSource.EndEdit()
Me.CallOffLineTableAdapter.Update(Me.EDIAnalysisDataSet.CallOffLine)

Catch ex As Exception
End Try

plese help!!!!