1,217
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
dyj_163_com 2002-05-15
- 打赏
- 举报
up
bitsoft 2002-05-15
- 打赏
- 举报
Private Sub Text2_Validate(Cancel As Boolean)
If Text2.Text <> "" And Not IsNull(Text2.Text) Then
If Not (IsNumeric(Text2.Text) And Len(Text2.Text) = 6) Then
MsgBox "wrong"
End If
End If
End Sub
If Text2.Text <> "" And Not IsNull(Text2.Text) Then
If Not (IsNumeric(Text2.Text) And Len(Text2.Text) = 6) Then
MsgBox "wrong"
End If
End If
End Sub
ctianqi 2002-05-15
- 打赏
- 举报
dim rs as recordset
if isnumeric(rs.filter(0)) then
if len(rs.filter) then
...........
end if
endif
if isnumeric(rs.filter(0)) then
if len(rs.filter) then
...........
end if
endif
