6 29 1 VB Example

6.29.1 VB Example

Private Sub lstSkills_Click()

 

    ' This subroutine sets the fields displayed to the details of the 

    ' list's currently selected skill    

 

    Dim iRet As Integer

    Dim sBuff As String

    Dim lFlags As Long

    Dim lDataLen As Long

 

    If (lstSkills.ListIndex > -1) Then ' selected

        ' Read record 

        ' set key 

        iRet = LceSetFieldValue(iSession, "SKILCODE", _

               SkillKey(lstSkills.ListIndex)) 

        ' fetch record

        iRet = LceFetch(iSession, "SKILCODE,SKILDESC", "SKLTAB", _ 

               "SKILCODE") ' Get Record

 

        ' get data and set fields 

        ' get code

        iRet = LceGetFieldDataLength(iSession, "SKILCODE", lDataLen)

        sBuff = String(lDataLen + 1, Chr(0)) 

        iRet = LceGetFieldValueX(iSession, "SKILCODE", sBuff, lFlags) ' Get Field

        If lFlags = 1 Then

           txtCode.Text = "Null value"

        Else

           txtCode.Text = sTrim(sBuff)

        EndIf

        ' get description

        sBuff = String(RDMLX_FIELD_DATA_SIZE + 1, Chr(0)) 

        iRet = LceGetFieldValueX(iSession, "SKILDESC", sBuff, lFlags)

        If lFlags = 1 Then

           txtDesc.Text = "Null value"

        Else

           txtDesc.Text = sTrim(sBuff)

        EndIf

    End If

End Sub