• Вика
  • Восстановленный участник
  • На форуме с 2 мая 2007г.
  • Сообщений: 1
  • Спасибо: 0

Тема: плиз...помогите,оч надо

Плиз,помогите:Private Sub Command2_Click()
With MSFlexGrid1
MSFlexGrid1.Col = 1
For Z = 1 To n
T(Z) = InputBox("Введите значение T" + CStr(Z), "Ввод данных")
MSFlexGrid1.Row = Z: .Text = T(Z)
Next Z
End With
End Sub как заменить пятую строчку чтобы кнопка работала?

  • SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Re: плиз...помогите,оч надо

MSFlexGrid1.TextMatrix(row, col) = "text"
'или
With MSFlexGrid1
 .Row = row
 .Col = col
 .Text = "text"
End With