要判断进货编码或出货编码不能在一组数据中交集
例: 900 -1600
判断700-800 OK
800-1100 error
1000-1400 error
1300-1800 error
1700-2100 ok
每次都在 "rsNum.Open SQL, cnn, adOpenKeyset, adLockOptimistic"报错
SQL = "select * from 进货信息 where (进货编码 < '" & 进货编码.Value & "'" _
& "and 出货编码 > '" & 出货编码.Value & "')or (进货编码 > '" & 进货编码.Value & "'" _
& "and 出货编码 >'" & 出货编码.Value & "')"
rsNum.Open SQL, cnn, adOpenKeyset, adLockOptimistic
If rsNum.BOF = False And rsNum.EOF = False Then
MsgBox "1.在数据库中已经存在有编号为<" & 进货编码.Value & ">的进货记录!" _
& vbCrLf & "请重新输入进货编码!", vbOKOnly + vbCritical
Me.进货编码.Value = ""
Me.开始时间.SetFocus
GoTo hhh
End If
例: 900 -1600
判断700-800 OK
800-1100 error
1000-1400 error
1300-1800 error
1700-2100 ok
每次都在 "rsNum.Open SQL, cnn, adOpenKeyset, adLockOptimistic"报错
SQL = "select * from 进货信息 where (进货编码 < '" & 进货编码.Value & "'" _
& "and 出货编码 > '" & 出货编码.Value & "')or (进货编码 > '" & 进货编码.Value & "'" _
& "and 出货编码 >'" & 出货编码.Value & "')"
rsNum.Open SQL, cnn, adOpenKeyset, adLockOptimistic
If rsNum.BOF = False And rsNum.EOF = False Then
MsgBox "1.在数据库中已经存在有编号为<" & 进货编码.Value & ">的进货记录!" _
& vbCrLf & "请重新输入进货编码!", vbOKOnly + vbCritical
Me.进货编码.Value = ""
Me.开始时间.SetFocus
GoTo hhh
End If
类型是什么?如果是整形那么应该为:
SQL = "select * from 进货信息 where (进货编码 < " & 进货编码.Value & _
& "and 出货编码 > " & 出货编码.Value & ")or (进货编码 > " & 进货编码.Value _
& "and 出货编码 > " & 出货编码.Value & ")"