Hej om jag ska skriva om denna funktion och visa i en data list i stället hur gör man?

Jag har försökt att ändra New DataTable till något annat men inte hittat något som fungerar.

Tack på förhand

//Bo

Public Function GetEmployee(ByVal Query As String) As Object

        Dim Con As String = ConfigurationManager.ConnectionStrings("Bo_ConnectionString").ToString()
        Dim cn As New SqlConnection(Con), _
               ada As New SqlDataAdapter(Query, Con), _
               dtEmp = New DataTable()
        cn.Open()

        ada.Fill(dtEmp)
        Return dtEmp
        cn.Close()
 End Function

Public Function GetEmployee(ByVal Query As String) As Object

Dim Con As String = ConfigurationManager.ConnectionStrings("Bo_ConnectionString").ToString()
Dim cn As New SqlConnection(Con), _
ada As New SqlDataAdapter(Query, Con), _
dtEmp = New DataTable()
cn.Open()

ada.Fill(dtEmp)
Return dtEmp
cn.Close()
End Function

Denna funktionen returnerar ju bara en datatable så du kan börja med att deklarera As DataTable för att styra upp logiken bättre. Sen är det ju så att din funktion bara returnerar en datamängd- det är koden bakom som gäller.

dvs. minkontroll.datasource = getemployee("select * from tabell")
minkontroll.databind()

så här ser hela aspx.vb ut fungerar i listview. //Bo