Dim myDS As DataSet = New DataSet
Dim xmlSR As System.IO.StringReader = New System.IO.StringReader(XmlData)
myDS.ReadXml(xmlSR)
Dim myBS As New BindingSource
myBS.DataSource = myDS.Tables(0)
DataGridView1.DataSource = myBS
DataGridView1.Columns.Add("Code", "Code")
DataGridView1.Columns.Add("ID", "ID")
DataGridView1.Columns.Add("AN", "AN")
Dim i As Byte
i = code.Count
Do Until code.Count = 0
DataGridView1.Rows(i — 1).Cells(0).Value = CStr(code.Pop)
i = i — 1
Loop
i = id.Count
Do Until plant.Count = 0
DataGridView1.Rows(i — 1).Cells(1).Value = CStr(id.Pop)
i = i — 1
Loop
i = an.Count
Do Until art.Count = 0
DataGridView1.Rows(i — 1).Cells(2).Value = CStr(an.Pop)
i = i — 1
Loop
Добавленные колонки не заполняет .. если просто добавить колонки .. т.е. без предварительного заполнения Гида другими данными то все работает .. что не так просто не могу понять ..
