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