Заполнение DataGrid из DataSet

[automatizier]

Ситуация такая, у меня есть набор записей FBDataReader информацию из него мне нужно закинуть в в DataGrid? почитав литературу по этому вопросу я понял что из Readera массово никак не скинуть информацию в Grid. Тогда я сделал следующее:
1. Создал нетипизированный DataSet и в нем одну таблицу с двумя колонками: NameID - первичный ключ , Name - значение

Код: Выделить всё


Dim oDataSet As New DataSet
Dim oDataTable As DataTable = oDataSet.Tables.Add("Data")

oDataTable.Columns.Add("NameID", System.Type.GetType("System.Int16"))
oDataTable.Columns.Add("Name", System.Type.GetType("System.String"))

oDataTable.Columns(0).AutoIncrement = True
oDataTable.Columns(0).AutoIncrementStep = 1
oDataTable.Columns(0).Unique = True
oDataTable.Columns(0).ReadOnly = True


2 Дальше в попытке из цикла по набору записей FBDataReader добавляю ручками значения в в таблицу:

Код: Выделить всё


Try
--Текст запроса частично пропущен

Dim oRow As DataRow = oDataTable.NewRow()
Do While drReader.Read
    oRow.Item("Name") = drReader("CLNAME")
    oDataTable.Rows.Add()
Loop


3 И в конце концов пытаюсь выбросить значения в DataGrid:

Код: Выделить всё



grdName.DataSource = oDataSet
grdName.DataMember = "Data"


Итог: Таблица выбрасывается в DataGrid но значения второй колонки 'Name' пустое хотя количество совпадает с выборкой подскажите где что не так

[automatizier]

Все разобрался! Нужно NewRow() в цикл закинуть