Моя текущая веб-программа отображает данные SQL в виде таблицы.
Теперь я хочу изменить размер столбцов после завершения привязки данных. Потому что некоторые столбцы заканчиваются тем, что занимают слишком много места из-за объема текста, и я хочу настроить размер столбца так, чтобы дисплей выглядел более аккуратно.
Protected Sub loadInfo()
Dim cmd As New SqlCommand
Dim dsgroup As New DataSet
Dim string1 As String = [SQL query here]
Dim da As New SqlDataAdapter(string1, conn)
cmd.Connection = conn
conn.Open()
da.Fill(dsgroup, "Display")
Dim dvgroup As DataView = dsgroup.Tables("Display").DefaultView
GridView1.DataSource = dvgroup
GridView1.DataBind()
GridView1.Columns(0).ItemStyle.Width = 50
GridView1.Columns(1).ItemStyle.Width = 50
GridView1.Columns(2).ItemStyle.Width = 50
GridView1.Columns(3).ItemStyle.Width = 50
GridView1.Columns(4).ItemStyle.Width = 50
GridView1.Columns(5).ItemStyle.Width = 50
GridView1.Columns(6).ItemStyle.Width = 50
GridView1.Columns(7).ItemStyle.Width = 50
GridView1.Columns(8).ItemStyle.Width = 50
GridView1.Columns(9).ItemStyle.Width = 50
conn.Close()
End Sub
Для тестирования я сначала попытался установить размер каждого столбца равным 50. Но после тестирования я получаю эту ошибку в строке GridView1.Columns(0).ItemStyle.Width = 50
:
Index was out of range. Must be non-negative and less than the size of the collection.
Parameter name: index
Что еще я должен добавить, чтобы сделать эту работу?