>> >>*** Form INIT EVENT: >>IF NOT thisform.DefineCA() >> RETURN .f. >>ENDIF >> >>select CA1 >>thisform.df_tabs1.df_page1.grdBiditems.recordsourcetype = 1 >>thisform.df_tabs1.df_page1.grdBiditems.recordsource = "CA1" >>thisform.df_tabs1.df_page1.grdBiditems.column1.ControlSource = 'CA1.lineitemid_b' >>thisform.df_tabs1.df_page1.grdBiditems.column2.ControlSource = 'CA1.lineitemname_b' >>thisform.df_tabs1.df_page1.grdBiditems.column3.ControlSource = 'CA1.lineitemqty' >>thisform.df_tabs1.df_page1.grdBiditems.column4.ControlSource = 'CA1.lineitemest' >> >>********* END of INIT event of the form >> >> >> >>*** Form DefineCA Method >>this.addproperty('oCA') >>this.oCa = createobject([CursorAdapter]) >> >>text TO this.oCa.SelectCmd PRETEXT 15 NOSHOW >> select * from biditems >> inner join lineitemspecs >> on biditems.lineitemid = lineitemspecs.lineitemid >> where biditems.projectphaseid = ?m.lnValue >>ENDTEXT >> >>this.oCa.allowinsert = .t. >>this.oCa.insertcmd = "" >>this.oCa.buffermodeoverride = 3 && 3 = row buffering, 5 = table buffering >>this.oCa.datasourcetype = [NATIVE] && native fox datasource >>this.oCa.sendupdates = .t. && unnecessary except with ODBC or ADO >>this.oCa.wheretype = 1 && >>this.oCa.tables = [test_financing] && >>this.oCa.fetchsize = -1 && primarily for remote views >>this.oCa.keyfieldlist = [biditemid] && the primary key for the table >>this.oCa.updatenamelist = "lineitemest biditems.lineitemest," + ; >> "lineitemqty bidirems.lineitemqty" >> >>m.lnValue = 0 >>this.oCa.updatablefieldlist = "lineitemest, lineitemqty" >>this.oCa.alias = "CA1" >> >>IF NOT this.oCa.cursorfill() >> AERROR(laError) >> MESSAGEBOX([Can not open CursorAdapter ] +laError[1,2]) >> RETURN .f. >>ENDIF >>RETURN .t. >>************* END OF DefineCA Method >> >> >>***** ComboBox InteractiveChange Event >>m.lnValue = val(this.value) >>IF NOT thisform.oCA.CursorRefresh() >> AERROR(laError) >> MESSAGEBOX([Can not refresh CursorAdapter ] +laError[1,2]) >> RETURN .f. >>ENDIF >>thisform.df_tabs1.df_page1.grdBiditems.Refresh() >> >>**** END of ComboBox InteractiveChange Event >>