Dim dtLieferstatus As New DataTable()
dtLieferstatus.Columns.Add(New DataColumn("Artnr"))
dtLieferstatus.Columns.Add(New DataColumn("Lager"))
dtLieferstatus.Columns.Add(New DataColumn("Gateway"))
dtLieferstatus.Columns.Add(New DataColumn("VK4"))
Dim Pkey(1) As DataColumn
Pkey(1) = dtLieferstatus.Columns("Artnr")
dtLieferstatus.PrimaryKey = Pkey
Dim reader As LumenWorks.Framework.IO.Csv.CsvReader, filereader As System.IO.TextReader = Nothing
Dim ReceiveStream As FileStream = New Filestream(KONAPP.Configpath & "\..\Outgoing\Lieferstatus.txt", FileMode.Open, FileAccess.Read)
Dim encode As Encoding = System.Text.Encoding.Default
filereader = New StreamReader(ReceiveStream, encode)
reader = New LumenWorks.Framework.IO.Csv.CsvReader(filereader, False, ";", "", "", vbNullChar(0), True)
reader.MissingFieldAction = LumenWorks.Framework.IO.Csv.MissingFieldAction.ReplaceByEmpty
reader.SupportsMultiline = False
If Not reader.ReadNextRecord() Then Return Nothing
Do While reader.ReadNextRecord = True
dtLieferstatus.Rows.Add(reader.Item(0), reader.Item(2), reader.Item(3), reader.Item(7))
Loop
Dim asd As DataRow = dtLieferstatus.Rows.Find("80282520")
MsgBox(asd.Item("Lager").toString)
|
|
|
|
|
|
