Dim e As RequestEventArgs = Args(0)
Dim cmd As New SQLCommand
cmd.C
Dim limit = e.Values("limit")
Dim page = e.Values("page")
Dim sql As String = "select * fro m 基本信息 left join 合同信息 on 基本信息.gonghao=合同信息.gonghao where 1=2"
Dim 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
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
If e.Values.ContainsKey("limit") Then
limit = e.Values("limit")
End If
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()
加好友 
发短信
Post By：2024/9/19 8:35:00 [显示全部帖子]
