6 58 1 VB Example

LANSA Open Guide

6.58.1 VB Example

Private Sub txtCode_Change()

    ' whenever txtCode changes, set field value. 

    ' This is safer than using lost focus, as the field can

    ' change without getting focus 

 

    Dim iRet As Integer

 

    If txtCode <> "" Then

        iRet = LceSetFieldValue(iSession, "SKILCODE", txtCode)       

    Else

        ' "" is not a null terminated string

        iRet = LceSetFieldValue(iSession, "SKILCODE", vbNullString)

    End If

End