可是如何分啊?我第一部分分开了,可是第二部不会了。Function CreateDataSource() As ICollection Dim conn As New OleDbConnection Dim comm As New OleDbCommand conn.ConnectionString = connstr comm.Connection = conn comm.CommandText = "select picwz,id from a_main" conn.Open() Dim rs As OleDbDataReader rs = comm.ExecuteReader Dim dt As DataTable = New DataTable dt.Columns.Add(New DataColumn("picwz", GetType(String))) dt.Columns.Add(New DataColumn("id", GetType(String))) Dim i As Int16 For i = 1 To 4 If rs.Read Then dt.Rows.Add(CreateRow(rs.Item(0), rs.Item(1), dt)) End If Next Dim dv As DataView = New DataView(dt) Return dv rs.Close() conn.Close() End Function
將原有的數據集分成兩部分,一部分綁定到DataList中,另一部分綁定在DropDownList中。
應該就可以吧。
Dim conn As New OleDbConnection
Dim comm As New OleDbCommand
conn.ConnectionString = connstr
comm.Connection = conn
comm.CommandText = "select picwz,id from a_main"
conn.Open()
Dim rs As OleDbDataReader
rs = comm.ExecuteReader
Dim dt As DataTable = New DataTable
dt.Columns.Add(New DataColumn("picwz", GetType(String)))
dt.Columns.Add(New DataColumn("id", GetType(String)))
Dim i As Int16
For i = 1 To 4
If rs.Read Then
dt.Rows.Add(CreateRow(rs.Item(0), rs.Item(1), dt))
End If
Next
Dim dv As DataView = New DataView(dt)
Return dv
rs.Close()
conn.Close()
End Function