【Access小品】对dbaseIIIer同志的批判---模仿百度查询示例

tzh16000

轻风 发表于 2011-10-10 09:23
还是有点漏洞，假如把记录中最后一条内容改为“我是可以世界事物分析员! 呵呵!以下我不只能做软件的!载体” ...

百度也会提醒我们使用适当的关键词的
有可能有歧义的时候,加个空格不就好了么?

todaynew

轻风 发表于 2011-10-10 09:23
还是有点漏洞，假如把记录中最后一条内容改为“我是可以世界事物分析员! 呵呵!以下我不只能做软件的!载体” ...

确如此，算法上应需再完善。

wyh99999

todaynew 发表于 2011-10-10 07:05
请参见《一塌糊涂》一文。

谢谢版主!

wyh99999

谢谢版主!

tanhong

老汉的宝贝东西还真是不少，收了！

wyh99999

todaynew 发表于 2011-10-10 07:05
请参见《一塌糊涂》一文。

您的查询所实现的功能非常好,我自己不能在我的查询中实现不了"非"的查询功能。请版主就我的查询进行修改。谢谢！

todaynew

wyh99999 发表于 2011-10-9 22:28
请教：如何处理词组之间的关系？

呵呵，这要看你是打算用与非，还是或非，还是与或非了。

todaynew

wyh99999 发表于 2011-10-9 22:28
请教：如何处理词组之间的关系？

Function cx(str As String)
Dim strWhere As String  '定义条件字符串
Dim A
Dim i As Long
Dim B As Boolean
B = IsNull(Me.tm.Value) = False
B = B And IsNull(Me.AOA.Value) = False
If B = True Then
    If InStr(Me.AOA.Value, "与") > 0 Then
        strWhere = "True"
    Else
        strWhere = "False"
    End If
    A = Split(Me.tm.Value, str)
    For i = 0 To UBound(A, 1)
        If A(i) <> "" Then
            If InStr(Me.AOA.Value, "与") > 0 Then
                strWhere = strWhere & " and ([题名]&[责任者]&[档号] Like '*" & A(i) & "*')"
            Else
                strWhere = strWhere & " or ([题名]&[责任者]&[档号] Like '*" & A(i) & "*')"
            End If
        End If
    Next
    If InStr(Me.AOA.Value, "非") > 0 Then
        strWhere = "not (" & strWhere & ")"
    End If
Else
    strWhere = "True"
End If

Me.查询__综合_子窗体.Form.Filter = strWhere
Me.查询__综合_子窗体.Form.FilterOn = True
End Function

yanwei82123300

学习了，分析了代码，实现算法很精辟

wyh99999

哦，谢谢老汉！