Jobs
Author: Raghuraja Date Submitted: 2/17/2005 Category: Other Compatibility: VB 6 This code has been accessed 4795 times.
Email Yourself this snippet:
No Declaration
Code
Public Function fnCPYCMB(cmbFrOBJ As ComboBox, cmbToOBJ As ComboBox) As Boolean '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
