vsflexgrid的问题,请大家帮忙看看!!!!!!

Question

对vsflexgrid表格中的数据进行修改,现在想实现这样的效果:
控制表格中的数据格式:
例如:要输入10.5
如果输入100.5就报错
就是小数点前是两位,请问大家怎么做呢?

Answer 1

判断输入数字"."前面的数字长度就可以了啊
dim str1 as string '设输入数字为str1
split(str1,".",-1,1)
len(split(0))必须小于2 否则错误

Answer 2

看看这个能不能帮你
Private Sub Command1_Click()
   Dim a() As String
   a = Split(Text1.Text, ".")
   If Val(a(0)) > 99 Then
      MsgBox "erro", vbOKOnly, "错误提示"
   End If
End Sub