以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]用 Like 统计表达式总是出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193030)
--  作者：方丈
--  发布时间：2024/8/10 15:03:00
--  [求助]用 Like 统计表达式总是出错
用 Like 统计表达式总是出错，不知道错在哪里？谢谢！

Dim dt1 As Table = Tables("谜语竞猜数据库")
For Each dr1 As Row In dt1.Rows
    If Not dr1.IsNull("答案") AndAlso Not dr1.IsNull("谜底") Then
        If (dr1("答案") = dr1("谜底") Or dr1("附加谜底") Like "%" & dr1("答案") & "%")  AndAlso dr1("统计对象") = "1"  Then
            dr1("得分") = 1
        Else 
            dr1("得分") = 0
        End If
    End If
Next
--  作者：有点蓝
--  发布时间：2024/8/10 15:10:00
--  
表达式里使用like：http://www.foxtable.com/webhelp/topics/0102.htm


这时2种完全不同的东西，注意不要混淆了
If (dr1("答案") = dr1("谜底") Orelse dr1("附加谜底") Like "*" & dr1("答案") & "*")  AndAlso dr1("统计对象") = "1"  Then
--  作者：方丈
--  发布时间：2024/8/10 15:18:00
--  
谢谢！
如果"附加谜底"是用“,”隔开的多值单元格，如“2007开始,2010启用,九一八事变,2099”;用了“*”后，“207”、“099”或“事变”都被判定为正确，怎么改呢？谢谢！
[此贴子已经被作者于2024/8/10 15:22:39编辑过]
--  作者：有点蓝
--  发布时间：2024/8/10 16:17:00
--  
If (dr1("答案") = dr1("谜底") Orelse "," & dr1("附加谜底") & "," Like "*," & dr1("答案") & ",*")  AndAlso ...
--  作者：方丈
--  发布时间：2024/8/10 16:41:00
--  
谢谢！