[浏览完整版]
标题：[求助]怎么实现多条件分页搜索
1楼
qqmss 发表于：2024/9/19 8:35:00怎么实现多条件分页搜索
2楼
有点蓝 发表于：2024/9/19 8:42:00请举例说明一下。怎么样的多条件，需要怎么样分页，最后得到什么结果
[此贴子已经被作者于2024/9/19 8:43:35编辑过]
3楼
qqmss 发表于：2024/9/19 8:53:00我尝试用了LoadFilter，LoadOver这俩好像不能一块用
[此贴子已经被作者于2024/9/19 8:57:18编辑过]
4楼
有点蓝 发表于：2024/9/19 9:01:00代码呢？！
5楼
qqmss 发表于：2024/9/19 9:10:00
6楼
有点蓝 发表于：2024/9/19 9:12:00使用的什么数据库？
7楼
qqmss 发表于：2024/9/19 9:18:00access
8楼
有点蓝 发表于：2024/9/19 9:22:00把5楼图中第8行开始的代码文字发上来，不是图片
9楼
qqmss 发表于：2024/9/19 9:24:00Dim xingming As String
Dim shenfenzheng As String
Try
xingming = e.Values("xingming").ToString.Trim()
Catch ex As Exception
xingming = ""
End Try
Try
shenfenzheng = e.Values("shenfenzheng").ToString.Trim()
Catch ex As Exception
shenfenzheng = ""
End Try
cmd.CommandText = sql
Dim dt As DataTable = cmd.ExecuteReader
If shenfenzheng.Length <> 0 Then
dt.LoadFilter = " 基本信息.shenfenzheng = '" & shenfenzheng & "'"
End If
If xingming.Length <> 0 Then
dt.LoadFilter = " 基本信息.xingming like '%" & xingming & "%'"
End If
dt.LoadTop = e.Values("limit")
dt.LoadPage = e.Values("page") - 1
dt.LoadOver = "id"
dt.Load()
10楼
有点蓝 发表于：2024/9/19 9:53:00……
Dim sql As String = "select * from 基本信息 left join 台同信息 on 基本信息.gonghao = 合同信息.gonghao where 1=2"
……
Dim filter As String = "1=1 "
If e.Values.ContainsKey("shenfenzheng") Then
filter = filter & " and 基本信息.shenfenzheng = '" & shenfenzheng & "'"
End If
If e.Values.ContainsKey("xingming") Then
filter = filter & " and 基本信息.xingming like '%" & xingming & "%'"
End If
Dim limit As Integer = 10
If e.Values.ContainsKey("limit") Then
limit = e.Values("limit")
End If
Dim page As Integer = 0
If e.Values.ContainsKey("page") Then
page = e.Values("page")
If page > 0 Then
page = page - 1
End If
End If
cmd.CommandText = sql
Dim dt As DataTable = cmd.ExecuteReader
dt.LoadFilter = filter
dt.LoadTop = limit
dt.LoadPage = page
dt.LoadOver = "id"
dt.Load()