• Home
 · 
• Miscellaneous
 · 
• 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)

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

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    '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