xsharp.eu

Code: Select all

PRIVATE METHOD button1_Click(sender AS OBJECT, e AS System.EventArgs) AS VOID
    
     *-> Memvars
     *
     LOCAL _CUSTOMER AS MDBf.Table
     *
     LOCAL mCustNo   AS STRING
     LOCAL mCustName AS STRING            
             
     *-> Open customer table
     *
     _CUSTOMER := Table{}              
     _CUSTOMER.File.Open("C:TMPCUSTOMER.DBF",TableShare.Shared,TableAccess.ReadWrite)
             
     *--> Display all customer no. and name
     *
     DO WHILE ! _CUSTOMER.Navigator.IsEOF() 
        *
        mCustNo   := _CUSTOMER.Record.C("CUST_NO")
        mCustName := _CUSTOMER.Record.C("CUST_NAME")
        *
        MessageBox.Show("Customer No: "+mCustNo+"rn"+"Customer Name: "+ mCustName)
        *
        _CUSTOMER.Navigator.Skip()
        *    
     ENDDO
            
     *-> Close table
     *
     _CUSTOMER.File.Close() 
     _CUSTOMER.Dispose()            
    
 END CLASS