1、将数据加到DATASET中再与下拉列表框绑定。
Sub CreateDataSource()
Dim strAll(), strCol() As String
dt.Columns.Add(New DataColumn("ID", GetType(Int32)))
dt.Columns.Add(New DataColumn("资源ID", GetType(Int32)))
dt.Columns.Add(New DataColumn("资源名称", GetType(String)))
dt.Columns.Add(New DataColumn("开始时间", GetType(DateTime)))
dt.Columns.Add(New DataColumn("结束时间", GetType(DateTime)))
dt.Columns.Add(New DataColumn("数量", GetType(Integer)))
strAll = Split(Session("allrec"), "|")
Dim i As Integer
For i = 0 To strAll.Length - 1
strCol = Split(strAll(i), ",")
If strCol.Length > 1 Then
dr = dt.NewRow()
dr(0) = i + 1
dr(1) = strCol(0)
dr(2) = strCol(1)
dr(3) = CDate(strCol(2))
dr(4) = CDate(strCol(3))
dr(5) = CInt(strCol(4))
dt.Rows.Add(dr)
End If
Next i
End Sub 'CreateDataSource
2、不如直接加入。