rs.Open sql1, conn, 1, 3
If rs.Fields(0) < TextBox1(q).Value Then
TextBox1(q).Value = ""
End If
其中rs.Fields(0)已通過msgbox 知道為20
textbox1(q)界面人工輸寫,textbox1(q)每次改變我都判斷
現在情況就是在textbox1(q)中輸入1,判斷也比rs.fields(0)小
是不是數據類型問題,求改一下

rs.Fields(0) < TextBox1(q).text        ' 是 text 还是 value ？？？ 如果是文本框，那么就是  text

如果是防止类型错误， 那再加个函数
rs.Fields(0) < val(TextBox1(q).text)

如果想严格判断，那么
dim i as long
if IsNumeric(textbox1(q).text) then     '输入的是 是否数字
  i=val(textbox1(q).text)              '转为长整数类型
'  i=clng(textbox1(q).text)            '转主为长整数类型
  if rs.fileds(0)<i then              '判断值
    textbox1(q).text=""              '置 空
  end if
else                          '如果输入的不是 数字
    textbox1(q).text=""       '直接置空，还可以到这里加提示
end if

版主就是版主，一個小問題都能讓我學到很多