• The reference to SAP Table View Control has been set under Project ® References.

Use the Table View Control to prepare the data display: The Table View Control provides views on tables from the R/3 system. Create a connection between table CUSTOMER_T and the Table View. Format and assign the table columns and display the R/3 data.

Private Sub TABOutput()

    Dim Columne As Object

'

'Connect table object with table view

'

    dieFunc.Tables("CUSTOMER_T").Views.Add SAPTableView1.object

'

'table update

'

    dieFunc.Tables("CUSTOMER_T").Refresh

'

'Loop on table columns

'

      For Each Columne In dieFunc.Tables("CUSTOMER_T").Columns

       SAPTableView1.Columns(Columne.Index).Name = Columne.Name

       SAPTableView1.Columns(Columne.Index).Protection = True

      Next Columne

'

'names of headings

'

    SAPTableView1.Columns("KUNNR").Header = "Customer No."

    SAPTableView1.Columns("ANRED").Header = "Form"

    SAPTableView1.Columns("NAME1").Header = "Name"

    SAPTableView1.Columns("PFACH").Header = "POBox"

    SAPTableView1.Columns("STRAS").Header = "Street"

    SAPTableView1.Columns("PSTLZ").Header = "ZIP"

    SAPTableView1.Columns("ORT01").Header = "City"

    SAPTableView1.Columns("TELF1").Header = "Tel.No."

    SAPTableView1.Columns("TELFX").Header = "Tel.Fax."

'

'Automatically adapt column width to contents

'

       SAPTableView1.ColumnAutoWidth 1, SAPTableView1.ColumnCount

    Screen.MousePointer = vbDefault          'Deactivate hour glas

End Sub