谁来帮帮我这个弱智阿~~艾

吃吃喝喝

队列是5位数的，我想查询比如只要包含564的所有数据比如50641、65154、00564。。。 。。。应该怎么写条件阿~~在线坐着等回复，还有哦就是查询的条件要经常换得，谢拉!!!

青青说like "*4*" and like "*5*" and like "*6*"我用了大部分可以

不过如果碰到433这种有2个数字重复的又不行了~~

[此贴子已经被作者于2006-10-22 14:48:16编辑过]

lihaizhu

like *564*

吃吃喝喝

那465不是就不行啦

青青

like "*4*" and like "*5*" and like "*6*"

吃吃喝喝

对了~~~原来怎么简单~hoho

青青

只要包含564的所有数据

不过如果碰到433这种有2个数字重复的又不行了~~

搞不懂到底想要什么。

qlm

以下是引用吃吃喝喝在2006-10-22 11:52:00的发言：


队列是5位数的，我想查询比如只要包含564的所有数据比如50641、65154、00564。。。 。。。应该怎么写条件阿~~在线坐着等回复，还有哦就是查询的条件要经常换得，谢拉!!!

青青说like "*4*" and like "*5*" and like "*6*"我用了大部分可以

不过如果碰到433这种有2个数字重复的又不行了~~

这位老兄大概是研究彩票的吧,哈哈。

我碰到过这样的问题,解决的办法是编一个函数，如下，你自己研究看是不是这个意思。

'***************************************************************************************
' Function  :StrCount
' DateTime  : 2006-11-29 02:46
' Author    : qlm
' Purpose   : 统计某一字符串在某字符串中出现的次数
'***************************************************************************************
Function StrCount(Str As String, SubStr As String) As Long
    Dim iStrCount
iStrCount = 0
For i = 0 To Len(Str)
If SubStr = Right(Left(Str, i), 1) Then iStrCount = iStrCount + 1
Next i

    StrCount = iStrCount
End Function

'下面是调用的例句

If StrCount(rsc.Fields("str"), Left(rsc.Fields("str"), 1)) = StrCount(rscB.Fields("情况1号"), Left(rsc.Fields("str"), 1)) And StrCount(rsc.Fields("str"), Left(rsc.Fields("str"), 1)) <> 0 And _
   StrCount(rsc.Fields("str"), Right(rsc.Fields("str"), 1)) = StrCount(rscB.Fields("情况1号"), Right(rsc.Fields("str"), 1)) And StrCount(rsc.Fields("str"), Right(rsc.Fields("str"), 1)) <> 0 And _
   StrCount(rsc.Fields("str"), Right(Left(rsc.Fields("str"), 2), 1)) = StrCount(rscB.Fields("情况1号"), Right(Left(rsc.Fields("str"), 2), 1)) And StrCount(rsc.Fields("str"), Right(Left(rsc.Fields("str"), 2), 1)) <> 0 Then
DoCmd.RunSQL "insert into 预测结果表a(码,码b) select '" & rscB.Fields("情况1号") & "' as sss,'" & rsc.Fields("str") & "' as bbb"

qlm

以下是引用吃吃喝喝在2006-10-22 11:52:00的发言：


队列是5位数的，我想查询比如只要包含564的所有数据比如50641、65154、00564。。。 。。。应该怎么写条件阿~~在线坐着等回复，还有哦就是查询的条件要经常换得，谢拉!!!

青青说like "*4*" and like "*5*" and like "*6*"我用了大部分可以

不过如果碰到433这种有2个数字重复的又不行了~~

这位老兄大概是研究彩票的吧，哈哈...


下面是我前段时间心血来潮研究3D搞的，是为了解决类似问题，看与你要求是否一致。


'***************************************************************************************
' Function  :StrCount
' DateTime  : 2006-11-29 02:46
' Author    : qlm
' Purpose   : 统计某一字符串在某字符串中出现的次数
'***************************************************************************************
Function StrCount(Str As String, SubStr As String) As Long
    Dim iStrCount
iStrCount = 0
For i = 0 To Len(Str)
If SubStr = Right(Left(Str, i), 1) Then iStrCount = iStrCount + 1
Next i


    StrCount = iStrCount
End Function


'引用如下


If StrCount(rsc.Fields("str"), Left(rsc.Fields("str"), 1)) = StrCount(rscB.Fields("情况1号"), Left(rsc.Fields("str"), 1)) And StrCount(rsc.Fields("str"), Left(rsc.Fields("str"), 1)) <> 0 And _
   StrCount(rsc.Fields("str"), Right(rsc.Fields("str"), 1)) = StrCount(rscB.Fields("情况1号"), Right(rsc.Fields("str"), 1)) And StrCount(rsc.Fields("str"), Right(rsc.Fields("str"), 1)) <> 0 And _
   StrCount(rsc.Fields("str"), Right(Left(rsc.Fields("str"), 2), 1)) = StrCount(rscB.Fields("情况1号"), Right(Left(rsc.Fields("str"), 2), 1)) And StrCount(rsc.Fields("str"), Right(Left(rsc.Fields("str"), 2), 1)) <> 0 Then
DoCmd.RunSQL "insert into 预测结果表a(码,码b) select '" & rscB.Fields("情况1号") & "' as sss,'" & rsc.Fields("str") & "' as bbb"

[此贴子已经被作者于2006-12-12 22:41:05编辑过]

qlm

这位老兄大概是研究彩票的吧，哈哈...


下面是我前段时间心血来潮研究3D搞的，是为了解决类似问题，看与你要求是否一致。


'***************************************************************************************
' Function  :StrCount
' DateTime  : 2006-11-29 02:46
' Author    : qlm
' Purpose   : 统计某一字符串在某字符串中出现的次数
'***************************************************************************************
Function StrCount(Str As String, SubStr As String) As Long
    Dim iStrCount
iStrCount = 0
For i = 0 To Len(Str)
If SubStr = Right(Left(Str, i), 1) Then iStrCount = iStrCount + 1
Next i


    StrCount = iStrCount
End Function


'引用如下


If StrCount(rsc.Fields("str"), Left(rsc.Fields("str"), 1)) = StrCount(rscB.Fields("情况1号"), Left(rsc.Fields("str"), 1)) And StrCount(rsc.Fields("str"), Left(rsc.Fields("str"), 1)) <> 0 And _
   StrCount(rsc.Fields("str"), Right(rsc.Fields("str"), 1)) = StrCount(rscB.Fields("情况1号"), Right(rsc.Fields("str"), 1)) And StrCount(rsc.Fields("str"), Right(rsc.Fields("str"), 1)) <> 0 And _
   StrCount(rsc.Fields("str"), Right(Left(rsc.Fields("str"), 2), 1)) = StrCount(rscB.Fields("情况1号"), Right(Left(rsc.Fields("str"), 2), 1)) And StrCount(rsc.Fields("str"), Right(Left(rsc.Fields("str"), 2), 1)) <> 0 Then
DoCmd.RunSQL "insert into 预测结果表a(码,码b) select '" & rscB.Fields("情况1号") & "' as sss,'" & rsc.Fields("str") & "' as bbb"