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

来源：互联网发布：mac apache php mysql 编辑：程序博客网时间：2024/05/18 22:10

'函数名 :DataAddToCombobox

'函数功能:将传入的对象添加至下拉列表中

'传入参数:objInfo:数据对象，CmbObj:下拉列表框对象,AddColName:要添加的列名,IsAll:是否添加"全部"字段

'返回值 :

'制作人 :zzz

'制作日期:2007-04-10

'说明 :

Public 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)

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)

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