限制输入问题

Question

自己判断呀，符合就接受，不然PASS不理

Answer 1

用MaskEdit吧！ 
设置：
MaskEdit1->EditMask = "";
具体查MSDN 

Answer 2

Private Sub Text1_KeyPress(KeyAscii As Integer)
digikey = Chr(KeyAscii)
Select Case digekey
       Case "0" To "9"
            Text1.Text = digikey + Trim(Text1.Text)
       Case "-"
            Text1.Text = digikey + Trim(Text1.Text)
       Case Else
            KeyAscii = 0
End Select
End Sub
有兴趣的话还要注意一下KEYPRESS和KEYDOWN的细微差别。

Answer 3

谁能告诉我在DBGRID中如何用代码控制录入数据时的格式？

Answer 4

eggyyy(蕃茄炒蛋)　的方法很好呀，一般都是这样作的

Answer 5

y_shen的方法比较好
或者可以用isnumeric() + instr()这样的方法