标题：同类别查询

1楼

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

不知是哪出错，只显示一头一尾的记录，中间的显示不出来

2楼

有点蓝 发表于：2024/12/16 15:13:00

请上传实例测试

3楼

zhuxinhui 发表于：2024/12/18 9:08:00

上面的代码做了一个案例又可以，但是在系统里又不可以，是什么回事，同样的代码

这个与外内表有区别吗？

4楼

有点蓝 发表于：2024/12/18 9:09:00

说明有其它代码影响了

共4 条记录, 每页显示 10 条, 页签: [1]