6.43.1 VB Example

     Private Sub cmdSave_Click()

     ' Saves changes or inserts a new record.  Note that the fields are 
     ' updated as the user changes them.
     ' Errors are automatically handled by LANSA 

         Dim iRet As Integer    

         If bAdding = True Then
             ' user is inserting a new record
             iRet = LceInsert(iSession, "SKILCODE,SKILDESC", "SKLTAB", _
     LceFalse)
         Else
             ' user is saving changed record
         End If

         If iRet = LceTrue Then
             ' if successful force a refresh so list shows changes
             Call RefreshSkillsList
         End If
     End Sub