主题：[求助]能否限制字符型的列里面只能输入整数。

KeyPressEdit事件

If e.Col.Name = "第一列" AndAlso Asc(e.KeyChar) <> 8 Then

    Dim d As Decimal

    If e.KeyChar <> "."

        If Decimal.TryParse(e.KeyChar,d) = False Then

            e.Cancel = True '且取消此次按键

            Return

        End If

    Else

        StatusBar.Message1 = Decimal.TryParse(e.Text & e.KeyChar,d)

        StatusBar.Message2 = e.Text & e.KeyChar

        If Decimal.TryParse(e.Text & e.KeyChar,d) = False Then

            e.Cancel = True '且取消此次按键

        End If

    End If

End If