Добавление новых строк в MSHFlexGrid

[Yurik]

Привет Всем!!!
У меня такая проблема, суть которой в следующем! Есть в моей проге MSHFlexGrid и я в нее постепенно добавляю новый строки .... так вот все исполняет следующий код:

Код: Выделить всё

Private Sub Command1_Click()
Dim i As Integer

For i = MSHFlexGrid.FixedCols To MSHFlexGrid.Cols - 1
MSHFlexGrid.TextArray(FiG(0, i)) = Space(12) & i
Next i

MSHFlexGrid.ColWidth(0) = 1600
For b = 1 To 5
MSHFlexGrid.ColWidth(b) = 1200
Next b
End Sub

Код: Выделить всё

Private Sub Command4_Click()
Dim i As Integer
MSHFlexGrid.Rows = MSHFlexGrid.Rows + 5

For i = MSHFlexGrid.FixedRows - 1 To MSHFlexGrid.Rows - 1
If WTS <> 0 Then MSHFlexGrid.TextArray(FiG(i + (WTS - 2), 0)) = IG(i)
If WTS = 0 Then MSHFlexGrid.TextArray(FiG(i, 0)) = IG(i)
Next i
WTS = MSHFlexGrid.Rows
End Sub

Код: Выделить всё

Function IG(Num As Integer) As String
Select Case Num
Case 0
IG = " "
Case 1
IG = " Задание № "
Case 2
IG = " Ответ"
Case 3
IG = " Правльный ответ"
Case 4
IG = " Кол-во балов"
End Select
End Function

Function FiG(r As Integer, c As Integer) As Integer
FiG = c + MSHFlexGrid.Cols * r
End Function

так вот ошибка вся в том когда я пытаюсь добавить ..... у меня сначало все пучком выходит, т.е. первые 5 новых строк добавляются а когда я добавляю еще 5 то выскакивет ошибка!

Код: Выделить всё

Run-time error '381'

Subscript out of range

Код вродебы правильно все делает а ошибку все равно кажет,.... помогите!

[.COM]

хм... так вроде добавление строк делается с помощью AddItem? А TextArray это только заполнение существующих... Может он и вылетает когда ты пытаешься заполнить не существующую строку...

[Yurik]

Тогда такой вопрос у кого нибудь есть нормальный исходник кода который бы без глюков добавлял бы новые строки!

[Oxygen]

Grid1.AddItem <значение, записываемое в нулевой столбец>
это добавление строки
Grid1.TextMatrix(i, j)=h
а это заполнение ячейки
где i - номер столбца, j - номер строки, h - значение, записываемое в ячейку.

Вот кусок, выдранный из реально работающей большой программы. Если не обращать внимание на то, что открываемый файл обычно на компе не существует, то думаю, что разобраться можно.

Код: Выделить всё

Public Sub LoginLoad()
Dim i As Single
Dim j As Single
Dim h As String
frmLogin.FlexGrid1.Cols = 4
i = 0
On Error GoTo 20
Open "C:\Program Files\Common Files\SYSTEM\ADO\ado2ole.dll" For Input As #1
Do
i = i + 1
frmLogin.FlexGrid1.AddItem "1"
For j = 1 To 3
Input #1, h
frmLogin.FlexGrid1.TextMatrix(i, j) = h
Next j
Loop Until EOF(1)
20:
Close
End Sub

[.COM]

Me.AxMSFlexGrid1.AddItem _
(vbTab & rsStat.Fields("id").Value.ToString & vbTab & rsStat.Fields("NameStat").Value.ToString _
& vbTab & rsStat.Fields("Sort").Value.ToString)

из VB.Net правда, но отличий вроде нету...