ник: час
DataGrid1.Columns.Add (1)
DataGrid1.Columns(0).Width = 6000
DataGrid1.Columns(0).Caption = " Наименование товара "
DataGrid1.Columns(1).Width = 700
DataGrid1.Columns(1).Caption = "Колич"
DataGrid1.Columns(2).Width = 1000
DataGrid1.Columns(2).Caption = "Цена"
If Not rst.BOF Then rst.MoveFirst
Do While Not rst.EOF ' заполняем данными
никак не хочет заполняться........ чего то не хватает..........
DataGrid1.Columns(0).Text = NZVB(rst("COMMODITY_NAME"))
DataGrid1.Columns(1).Value = NZVAL(rst("AMOUNT_TRANZACTION"))
DataGrid1.Columns(2).Value = NZVB(rst("PRICE"))
