Question

VB VSFLEXGRID 怎么设置只能输入一个小数点和数字

VB VSFLEXGRID 怎么设置只能输入一个小数点和数字？

代码
----------------------------------
Private Sub vsflexgrid1_KeyPressEdit(ByVal row As Long, ByVal Col As Long, KeyAscii As Integer)
If Col = 1 Then CheckData KeyAscii
End Sub

Private Sub CheckData(KeyAscii As Integer)
If KeyAscii = 46 And InStr(VSFlexGrid1.Text, ".") Then KeyAscii = 0
End Sub
----------------------------------
这个本来是If KeyAscii = 46 And InStr(text1.Text, ".") Then KeyAscii = 0,
text1用着可以，换成VSFlexGrid1.Text就不行了，怎么办，我想让VSFlexGrid1第一行也这样

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏10（财富值+成长值）

Answer 1

设置单元格格式为数值。