6.17.1 VB Example

     ' Declare variables.
 
     Dim sBuff As String 
     Dim iRet As Integer
     Dim lFlags As Long
 
     ' Associate fields with the session. Note that this only has to be 
     ' done once for a particular field.
 
     iRet = LceUseField(iSession, "DEPTMENT, DEPTDESC")
 
     ' Get the default value for Department Code. Note that the subroutine
     ' sTrim() removes leading and trailing blanks as well as any NULL 
     ' terminator at the end of the string.
 
     sBuff = String(FIELD_DATA_SIZE, Chr(0))
     iRet = LceGetDefaultValueX(iSession, "DEPTMENT", sBuff, lFlags)    
     If lFlags = 1 Then
        txtCode.Text = "Null value"
     Else
        txtCode.Text = sTrim(sBuff)
     EndIf
 
     ' Get the default value for Department Description.
 
     sBuff = String(FIELD_DATA_SIZE, Chr(0))
     iRet = LceGetDefaultValueX(iSession, "DEPTDESC", sBuff, lFlags)
     If lFlags = 1 Then
        txtDesc.Text = "Null value"
     Else
        txtDesc.Text = sTrim(sBuff)
     EndIf