6 23 1 VB Example

6.23.1 VB Example

' set Surname column headings using LANSA Repository information

' 

dim sBuff as string

sBuff =  String(FIELD_HEADING_LENGTH, Chr(0)) 

iRet = LceGetFieldHeading(iSession, "SURNAME", 1, sBuff)

lbHead1.Caption = sTrim (sBuff)

iRet = LceGetFieldHeading(iSession, "SURNAME", 2, sBuff)

lbHead2.Caption = sTrim (sBuff)

iRet = LceGetFieldHeading(iSession, "SURNAME", 3, sBuff)

lbHead3.Caption = sTrim (sBuff)