[ 
|../../index.htm#lansa/srvgudba_0170.htm]
You are here:
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)
[ |../../index.htm#lansa/srvgudba_0170.htm]