on palm
Can I use cdx ?
Can i Use two areas ?
Why this sample not run ?
Code: Select all
#include "FWCE.ch"
REQUEST DBFCDX, DBFFPT
External ordkeyno, ordkeycount,ordcreate
function Main()
local oWnd
RddSetDefault( "DBFCDX" )
Select 1
if ! Db_Open( "customer", "customer" )
RETURN NIL
endif
Select 2
if ! Db_Open( "customer2", "customer2" )
RETURN NIL
endif
DEFINE WINDOW oWnd TITLE "MyApp"
select 1
browse()
select 2
browse()
ACTIVATE WINDOW oWnd
return nil
FUNCTION Db_Open(cdbf, cAlias )
use &cDbf ALIAS &cAlias index &cDbf
RETURN .t.