Язык Visual Basic на платформе .NET.
Модераторы: Ramzes, Sebas
-
#set
-
- Новичок
-
-
- Сообщения: 45
- Зарегистрирован: 05.10.2006 (Чт) 11:06
#set » 07.01.2007 (Вс) 19:20
Объект должен иметь тип Int32
Какой-то глюк. Не знаю как от него избавиться.
VB.NET 2005
на форме использую DataGridView control
Програмно заполняю ячейки числами в диапазоне -100 +100
Потом ячейки имеющие значение Nothing присваиваю 0
Сортировка на гриде стоит его собственная
и при нажатии на columnheader выдает вышеуказанную ошибку.
Помогите решить проблему.
- Вложения
-
- Вот такая табличка. Вроде ничего военного.
- grid.JPG (12.22 Кб) Просмотров: 474
Последний раз редактировалось
#set 08.01.2007 (Пн) 23:45, всего редактировалось 1 раз.
-
gaidar
-
- System Debugger
-
-
- Сообщения: 3152
- Зарегистрирован: 23.12.2001 (Вс) 13:22
-
gaidar » 08.01.2007 (Пн) 8:35
Код, плз, в студию.
The difficult I’ll do right now. The impossible will take a little while. (c) US engineers in WWII
I don't always know what I'm talking about, but I know I'm right. (c) Muhammad Ali
-
#set
-
- Новичок
-
-
- Сообщения: 45
- Зарегистрирован: 05.10.2006 (Чт) 11:06
#set » 10.01.2007 (Ср) 12:22
Да вобщем-то военного там ничего и нет то.
Заполнение:
- Код: Выделить всё
If ArrayCounter <> 0 Then
With MainForm.DataGridView1
.Rows.Add(ArrayCounter)
For n = 0 To ArrayCounter - 1
.Rows(n).Cells(0).Value = Arrays.TodayArray(n, 0)
For x = 2 To Tables.GetTableCount()
.Rows(n).Cells(x - 1).Value = Arrays.TodayArray(n, x)
If .Rows(n).Cells(x - 1).Value > 0 Then .Rows(n).Cells(x - 1).Style.BackColor = Color.PaleGreen
If .Rows(n).Cells(x - 1).Value < 0 Then .Rows(n).Cells(x - 1).Style.BackColor = Color.MistyRose
Next x
.ColumnHeadersHeight = 30
Next n
End With
End If
Заполнение нулями (т.к. не нашел в контроле такой фишки что бы заведомо пустые ячейки нулями бились.)
- Код: Выделить всё
For n = 1 To MainForm.DataGridView1.ColumnCount - 1
For x = 0 To ArrayCounter - 1
If MainForm.DataGridView1.Rows(x).Cells(n).Value = Nothing Then MainForm.DataGridView1.Rows(x).Cells(n).Value = 0
MainForm.DataGridView1.Rows(x).Cells(n).Style.Alignment = DataGridViewContentAlignment.MiddleCenter
Next x
Next n
И вот после этой фигни он не сортирует.
С какого перепугу?!
-
#set
-
- Новичок
-
-
- Сообщения: 45
- Зарегистрирован: 05.10.2006 (Чт) 11:06
#set » 11.01.2007 (Чт) 12:04
Нет вариантов?
Вернуться в Visual Basic .NET
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 45