以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  同类别查询  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194491)
--  作者：zhuxinhui
--  发布时间：2024/12/16 14:59:00
--  同类别查询
    Dim str As String
        Dim fdr As DataRow = DataTables("单据编码").SQLfind("表名=\'进出\'and 单据名称=\'采购开单\'")
        If fdr IsNot Nothing Then
            str = fdr("简码") & "%"
        End If
        With Tables("进出")
            Dim tr As Integer
            tr = .FindRow("[单号] Like \'" & str & "\'",.Position - 1, True) \'从当前行的下一行开始查找
            If tr >= 0 Then \'如果找到的话
                .Position = tr \'定位到找到的行。
            End If
        End With
不知是哪出错，只显示一头一尾的记录，中间的显示不出来
--  作者：有点蓝
--  发布时间：2024/12/16 15:13:00
--  
请上传实例测试
--  作者：zhuxinhui
--  发布时间：2024/12/18 9:08:00
--  
上面的代码做了一个案例又可以，但是在系统里又不可以，是什么回事，同样的代码
这个与外内表有区别吗？
--  作者：有点蓝
--  发布时间：2024/12/18 9:09:00
--  
说明有其它代码影响了