6 43 1 VB Example

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