Монтаж, эксплуатация и ремонт технологического оборудования. Курсовое проектирование. Юнусов Г.С - 138 стр.

       Case vbKeyReturn
       ' При нажатии на Enter курсор перепрыгивает
на следующую строку
       Computer (Index + 1)
       With MSFlexGrid1(Index)
         If .Row + 1 <= .Rows - 1 Then
           .Row = .Row + 1
           .Col = 1
         Else
           .Row = 1
           .Col = 1
         End If
       End With
       Case vbKeyBack
       ' Удаляем предыдущий символ при нажатии клавиши
backspace.
         With MSFlexGrid1(Index)
           If Trim(.Text) <> "" Then
             .Text = Mid(.Text, 1, Len(.Text) - 1)
           End If
         End With
      Case Else
        If ((KeyAscii > 47) And (KeyAscii < 58)) Or (KeyAscii = 46) Or
(KeyAscii = 44) Then
          MSFlexGrid1(Index).Text = MSFlexGrid1(Index).Text &
Chr(KeyAscii)
        Else
          MsgBox "Можно вводить только числа с десятичной точ-
кой или запятой"
        End If
     End Select
   End Sub
   Private Sub OpenData()
   ' Процедура читает данные из файла
     A = MsgBox("Данные во всех таблицах будут переписа-
ны?", vbOK Or vbOKCancel, "Предупреждение")
     If A <> vbOK Then
       Exit Sub
     End If
     CommonDialog1.Filter = "Data files (*.dat)|*.dat"
                                 137