| Вопрос: Adodc1.Recordset.Resync работает через раз!!! | Добавлено: 13.08.06 03:00 |
Автор вопроса:  Sergey
|
|
Вот мой код:
Adodc1.CommandType = adCmdText pSQL = "SELECT * from Uchet" Adodc1.RecordSource = pSQL Adodc1.Refresh If Adodc1.Recordset.EOF Then Exit Sub While Adodc1.Recordset.EOF <> True If Adodc1.Recordset(Combo1.Text) > 0 Then Adodc1.Recordset(Combo2.Text) = Adodc1.Recordset(Combo2.Text) + Adodc1.Recordset(Combo1.Text) Adodc1.Recordset(Combo1.Text) = Adodc1.Recordset(Combo1.Text) - Adodc1.Recordset(Combo1.Text) Adodc1.Recordset.Update End If Adodc1.Recordset.MoveNext Wend Adodc1.Recordset.Close ‘ А вот здесь я пытаюсь обновить данные что – бы в таблице на другой форме увидеть изменения. frmMain.Adodc1.Recordset.Resync , adResyncAllValues И самое интересное Вижу я эти изменения через раз, думал грид не обновляется пишу frmMain.Text1.Text = frmMain.Adodc1.Recordset("поле2") так та же фигня выводятся старые не измененные записи. Попробовал перенести frmMain.Adodc1.Recordset.Resync в Private Sub Command1_Click Private Sub Command1_Click() frmMain.Adodc1.Recordset.Resync End Sub Так все работает , ну не могу же я заставить озера чтоб он нажимал каждый раз кнопку :) Народ помогите 3 дня бьюсь застрял на этом (frmMain.Adodc1.Refresh как-то не красиво применять в этом случае или я не прав) |
| Ответы | Всего ответов: 0 |
Страница: