6 68 1 VB Example

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