将数据对象加载到下拉列表中

     ' 函数名  :DataAddToCombobox  
     ' 函数功能:将传入的对象添加至下拉列表中
     ' 传入参数:objInfo:数据对象，CmbObj:下拉列表框对象,AddColName:要添加的列名,IsAll:是否添加"全部"字段
     ' 返回值  :
     ' 制作人  :zzz
     ' 制作日期:2007-04-10
     ' 说  明  :
     Public   Sub DataAddToCombobox() Sub DataAddToCombobox(ByVal objInfo As Object, ByRef CmbObj As ComboBox, _
                                 ByVal AddColName As String, Optional ByVal IsAll As Boolean = False)
        CmbObj.Items.Clear()

        Dim i As Int16
        Try
            If objInfo.GetType.ToString = "System.Data.DataTable" Then
                '将DataTable的数据添加到下拉列表中
                If objInfo.Rows.Count = 0 Then
                    Throw New Exception("Error In DataAddToCombobox!!!" & vbCrLf & _
                                        "Source:objInfo" + " Message:未找到有效的数据!")
                    Exit Try
                End If
                If IsAll = True Then
                    CmbObj.Items.Add("全部")
                End If
                For i = 0 To objInfo.Rows.Count - 1
                    CmbObj.Items.Add(Convert.ToString(objInfo.Rows(i)(AddColName)).Trim)
                Next
            ElseIf objInfo.GetType.ToString = "System.String[]" Then
                '将String数组的数据添加到下拉列表中
                If UBound(objInfo) < 0 Then
                    Throw New Exception("Error In DataAddToCombobox!!!" & vbCrLf & _
                                        "Source:objInfo" + " Message:未找到有效的数据!")
                    Exit Try
                End If
                If IsAll = True Then
                    CmbObj.Items.Add("全部")
                End If
                For i = 0 To UBound(objInfo)
                    CmbObj.Items.Add(Convert.ToString(objInfo(i)).Trim)
                Next
            ElseIf objInfo.GetType.ToString = "" Then

            End If

            CmbObj.SelectedIndex = 0
        Catch ex As Exception
            Throw New Exception("Error In DataAddToCombobox!!!" & vbCrLf & _
                                "Source:" & ex.Source + ex.Message)
        Finally

        End Try
    End Sub