To copy values from one combo to another combo (Including Itemdata values)

by Raghuraja (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 17^th February 2005
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate To copy values from one combo to another combo (Including Itemdata values)



    'To copy values from From combo / To combo
    On Error GoTo LOCALERRORHANDLER
    '------------------------------------------
    Dim intinc As Double
    If cmbFrOBJ.ListCount > 0 Then
        cmbToOBJ.Clear
        For intinc = 0 To (cmbFrOBJ.ListCount - 1)
            cmbToOBJ.AddItem cmbFrOBJ.List(intinc)
            If IsNumeric(cmbFrOBJ.ItemData(intinc)) = True Then
                cmbToOBJ.ItemData(intinc) = cmbFrOBJ.ItemData(intinc)
            End If
        Next
    End If
    Exit Function
LOCALERRORHANDLER:
End Function

Download this snippet Add to My Saved Code

To copy values from one combo to another combo (Including Itemdata values) Comments

No comments have been posted about To copy values from one combo to another combo (Including Itemdata values). Why not be the first to post a comment about To copy values from one combo to another combo (Including Itemdata values).

To copy values from one combo to another combo (Including Itemdata values)

To copy values from one combo to another combo (Including Itemdata values) Comments

Post your comment

Difficulty