我正在创建一个新网站,并且一直在使用 VB 使用 ASP.NET。
我的网站适用于赛车手(高速公路)。我想以这样的格式为球迷提供一份车手名单 http://www.nba.com/lakers/roster?cid=nav_team_expanded
我在我的 SQL Server 数据库的数据集中拥有所有信息,但是在尝试创建类似于上述的表时遇到了各种问题。
我希望这一切都是动态的,所以没有人需要编辑网站。
最好和最简单的方法是什么?我尝试了各种我发现的教程,但没有一个能够有效地工作。
提前谢谢了!
到目前为止,这是我的代码。数据集填充了正确的信息,它只是试图找出如何以显示所有驱动程序的方式动态创建表。
Dim dsDrivers As DataSet = MSSQL.CustomSQL("WASDA_Drivers", "SELECT CarNo,Name FROM WASDA_Drivers")
Dim RowsCount As Integer = dsDrivers.Tables(0).Rows.Count / 4
'Sorts Car Numbers Properly
Dim CarNos As List(Of Integer) = New List(Of Integer)
Dim g As Integer
For z As Integer = 0 To dsDrivers.Tables(0).Rows.Count - 1
If Integer.TryParse(dsDrivers.Tables(0).Rows(z).Item("CarNo"), g) Then
CarNos.Add(g)
End If
Next
CarNos.Sort()
Dim rows, cells, j, i As Integer
Dim count As Integer = 0
rows = RowsCount * 2
cells = 4
For j = 0 To RowsCount - 1
Dim oRow As New TableRow()
For Each z As Integer In CarNos
For i = 0 To cells - 1
For x As Integer = 0 To dsDrivers.Tables(0).Rows.Count - 1
If CarNos(z).ToString = dsDrivers.Tables(0).Rows(x).Item("CarNo") Then
Dim oCell As New TableCell
oCell.Text = CarNos(z) & " : " & dsDrivers.Tables(0).Rows(x).Item("Name")
oRow.Cells.Add(oCell)
GoTo NextItem
End If
Next
NextItem:
tblDrivers.Rows.Add(oRow)
Next
For i = 0 To cells - 1
Dim oCell As New TableCell()
'oCell.Controls.Add(New LiteralControl("row " & j & ", cell " & i))
'oCell.Controls.Add(New LiteralControl(dsDrivers.Tables(0).Rows(count).Item(0)))
oCell.Controls.Add(New LiteralControl(CarNos(count) & " : " & dsDrivers.Tables(0).Rows(count).Item(0)))
oRow.Cells.Add(oCell)
count = count + 1
Next
Next
Next