| |
|
|
| | 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"))
 | |
| |
| |
| |
|
|
| | сам я этот контрол не использую, но вроде как
DataGrid1.Columns.Add (1)
|
добавляет одну колонку, а у тебя используются три | |
| |
| |
|
|
| |
|
|
| | Заношу данные в ДатаГрид, но пока не перейдёшь в другую запись - данные в таблицу исходник - не попадают...
и если забыть перейти, то они так и не попадут. Как их принудительно туда переместить? | |
| |
| |
| |
 10 Кб. |
|
| | по кнопочке
вообще-то, пора уже начать делать формы, которые не будут делать что-то автоматически, а любые манипуляции с данными будут подтверждаться нажатием кнопки или другим событием, | |
| |
| |
| |
|
|
| | можно и по кнопочке, но как их слить - не переходя к другой записи???
Как только покидаешь датагрид - последняя запись - остаётся только видимой на экране...........
если обновить связь с таблицей - звиздец......... | |
| |
| |
| |
|
|
| | Пока выход - вот такой
Dim str As Variant
str = NZVB(Me!DataGrid1.Text)
Me!Adodc1.Recordset.MoveNext
Me!Adodc1.Recordset.MovePrevious
Me!DataGrid1.Text = str
Me!DataGrid1.SelStart = Len(Me!DataGrid1.Text) + 1 | |
| |
| |
