以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]代码问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70245)
--  作者：jygyyl
--  发布时间：2015/6/17 17:58:00
--  [求助]代码问题
If Tables("TXJL_TXJL") .Current IsNot Nothing Then
    If Forms("TXJL").Opened Then
        With DataTables("TXJL_TXJLyf")
            .LoadFilter ="[GB011] = \'" & Tables("TXJL_TXJLyf") .Current("GB011")& "\'"
            .load()
        End With
    End If
End If

能否修改上述代码，实现加载GB011=GB011或者GB011=GB023的行？
求老师帮帮忙！谢谢！
--  作者：大红袍
--  发布时间：2015/6/17 18:53:00
--  
If Tables("TXJL_TXJL") .Current IsNot Nothing Then
    If Forms("TXJL").Opened Then
        With DataTables("TXJL_TXJLyf")
            .LoadFilter ="[GB011] = \'" & Tables("TXJL_TXJLyf") .Current("GB011") & "\' Or [GB011] = \'" & Tables("TXJL_TXJLyf") .Current("GB013") & "\'"
            .load()
        End With
    End If
End If