1180
社区成员
- 主页
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
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
