파포인트 콤보박스 목록 코드로 생성

    ReDim ItemName(Drow.GetUpperBound(0))
        ReDim ItemCode(Drow.GetUpperBound(0))

        For Each dr As DataSet1.EGG1100Row In Drow
            ItemName(Me.prb.Value) = dr.PUM_NAME
            ItemCode(Me.prb.Value) = dr.JCODE
            If Me.prb.Value < Me.prb.Maximum Then Me.prb.Value += 1
        Next

        Dim A As New FarPoint.Win.Spread.CellType.ComboBoxCellType
        A.ItemData = ItemCode
        A.Items = ItemName
        A.Editable = False
        A.EditorValue = FarPoint.Win.Spread.CellType.EditorValue.ItemData
        Me.view1.ActiveSheet.Columns(1).CellType = A