6.68.1 VB Example

     Private Sub cmdSave_Click()
         ' saves department description changes
         ' no need to set key DEPTMENT as it is already set
         
         If txtDesc <> "" Then
              iRet = LceSetFieldValue(iSession, "DEPTDESC", txtDesc)
         Else
              '"" is not allowed, sNull same as chr(0) 
              iRet = LceSetFieldValue(iSession, "DEPTDESC", sNull) 
         End If
        
         iRet = LceUpdate(iSession, "DEPTDESC", "DEPTAB",   _
                "DEPTMENT", LceFalse)
         If iRet = LceTrue Then
             ' set flag to cause refresh in all combos displaying
             ' departments
               bDepFileChanged = True 
               Call RefreshDepList
         End If
     End Sub