Не могу найти причину, почему у меня грид пустой. Вот что я успела наваять В init.
WITH THIS

SET STEP ON
.AddProperty('lo_CA')
.lo_CA = CREATEOBJECT("CursorAdapter")

if vartype(.lo_CA)='O'
.lo_CA.Alias='fin'
.lo_CA.DataSourceType = 'ODBC'
.lo_CA.DataSource=PubCon
.lo_CA.SelectCmd = 'select * from test_fin order by fin_id, god'
.lo_CA.Tables = 'count.dbo.test_fin'
.lo_CA.keyFieldList = 'fin_id'

IF .grid1.Readonly= !mnr.d71.p3
FOR i = 1 TO .grid1.COLUMNCOUNT
IF .grid1.COLUMNS(i).CONTROLSOURCE="fin.PAYNUM" OR .grid1.COLUMNS(i).CONTROLSOURCE="fin.PAYDATE" then
.grid1.COLUMNS(i).readonly=.f.
ENDIF
ENDFOR
.lo_CA.UpdateNameList=" LPUCODE fin.LPUCODE, DATE fin.DATE, SUM fin.SUM, PRIM fin.PRIM, SKIND fin.SKIND, NDOC fin.NDOC, RF fin.RF, GOD fin.GOD, PRIZ fin.PRIZ, OSTATOK fin.OSTATOK"
.lo_CA.UpdatableFieldList="LPUCODE, DATE, SUM, PRIM, SKIND, NDOC, RF, GOD, PRIZ, OSTATOK"
ENDIF

IF .grid1.Readonly= !mnr.d71.p2
FOR i = 1 TO .grid1.COLUMNCOUNT
IF .grid1.COLUMNS(i).CONTROLSOURCE="fin.PAYNUM" OR .grid1.COLUMNS(i).CONTROLSOURCE="fin.PAYDATE" then
.grid1.COLUMNS(i).readonly=.f.
ENDIF
ENDFOR

.lo_CA.UpdateNameList="PAYDATE fin.PAYDATE, PAYNUM fin.PAYNUM"
.lo_CA.UpdatableFieldList="PAYDATE, PAYNUM"

ENDIF


if .lo_CA.cursorfill(.t.)
.Grid1.RecordSource=.lo_CA.Alias
.grid1.SetFocus()

else
messagebox('Îøèáêà ïðè âûïîëíåíèè ìåòîäà cursorfill ÊÀ')
return .f.
endif


ENDIF

ENDWITH

ВладимирМ,

В browse есть данные.

Спасибо, вроде все в порядке.

А как правильно обновить или добавить данные в источнике данных через курсорадаптер?

в click кнопки добавить написала
append blank
TABLEUPDATE() ?

в init формы указала:
.lo_CA.BufferModeOverride = 3
.lo_CA.AllowUpdate=.t.
.lo_CA.UpdateType=1
.lo_CA.keyFieldList = 'fin_id'
.lo_CA.UpdateNameList=" LPUCODE fin.LPUCODE, DATE fin.DATE, SUM fin.SUM, PRIM fin.PRIM, SKIND fin.SKIND, NDOC fin.NDOC, RF fin.RF, GOD fin.GOD, PRIZ fin.PRIZ, OSTATOK fin.OSTATOK"
.lo_CA.UpdatableFieldList=" LPUCODE, DATE, SUM, PRIM, SKIND, NDOC, RF, GOD, PRIZ, OSTATOK"

Добрый день всем. Продолжаю изучать СА. Добавила в тестовый проект вручную класс на основе cursoradapter, настроила его свойства. Вроде все нормально обновляется, добавляется, просматривается. Но только вот возник вопрос, можно ли один класс настроить на работу с двумя независимыми таблицами расположенными на одной форме? А то не хочется плодить нескоьлко классов.

ВладимирМВ принципе, возможно. Только вот, это довольно сложная задача. Имеет смысл этим заниматься только в том случае, если Вы пытаетесь сделать некий конструктор запросов. Ну, в смысле, пользователи сами будут конструировать запросы через некий интерфейс, а Вы, через этот универсальный класс, использовать то, что пользователи "наконструировали".

Если Вы пока только изучаете CursorAdapter, то проще (во всех смыслах) именно "плодить несколько классов". Свой класс CursorAdapter для каждой таблицы.

Я пока только хочу лишь отобразить данные двух несвязанных таблиц через один CA и чтобы поиск по ним можно было делать.

прошелмимоНадеждаМпропущено...


Я пока только хочу лишь отобразить данные двух несвязанных таблиц через один CA и чтобы поиск по ним можно было делать.

можно вопрос, не просто так, интересно.

таблиц - две.

ну ладно, потом их стописят будет, возможно ...

а курсорадаптер, то почему именно один?
хочется?

Да именно, хочется попробовать.