主题：有条件分页加载代码出错

筛选树红色代码部分如何调整？？

1、窗口AfterLoad

'========按归属部门进行数据加载==========

Dim fyjzfit As String   '分页加载

Dim fdr As DataRow = DataTables("Users").Find("Name = '" & User.Name & "'")

If User.Type = UserTypeEnum.User Then

    If fdr IsNot Nothing Then

        If fdr("归属部门").Contains("总公司")  Then

            fyjzfit = "[_Identify] Is Not Null"

        Else

            fyjzfit = "归属部门 = '" & fdr("归属部门") & "'"

        End If

    End If

Else

    fyjzfit = "[_Identify] Is Not Null"

End If

'生成从后台提取数据生成一个临时的DataTable

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

cmd.CommandText = "Select DISTINCT 招标审核,咨询类型,归属部门,项目名称,业务性质,投标地区,评标方式,报价方式,项目状态,工程类别,开标日期,系统编号 Fro m {招标信息} Where " & fyjzfit & " ORDER BY 开标日期 DESC"

dt = cmd.ExecuteReader()

Vars("zbxxdt") = dt

'''设置目录树

Dim trv As WinForm.TreeView = e.Form.Controls("Trv_sxs")

trv.BuildTree(dt,"归属部门|咨询类型|投标地区")  '  ,"","招标审核 DESC") ',"","开标日期  DESC")

trv.Nodes.Insert("显示所有项目",0)

trv.Nodes(1).Expand()

2、自定义函数LoadData_fy

'========按归属部门进行数据加载==========

Dim fy As String = Args(0)

Dim fyjzfit As String         ' = "1=2"   '分页加载

Dim fdr As DataRow = DataTables("Users").Find("Name = '" & User.Name & "'")

If User.Type = UserTypeEnum.User Then

    If fdr IsNot Nothing Then

        If fdr("归属部门").Contains("总公司")  Then

            fyjzfit = "[_Identify] Is Not Null"

        Else

            fyjzfit = "归属部门 = '" & fdr("归属部门") & "'"

        End If

    End If

Else

    fyjzfit = "[_Identify] Is Not Null"

End If

fyjzfit = fyjzfit & fy

Dim r1 As Integer = (Page - 1) * 20 + 1

Dim r2 As Integer = Page * 20

Dim sql As String

Dim str As String = ""

For Each dc As DataCol In DataTables("招标信息").DataCols

    str &= dc.name.Tostring & ","

Next

sql = "Select " & str.trim(",") & " Fro m (Select Row_Number() Over(Order by 开标日期) As RowNum, * fro m 招标信息 where " & fyjzfit & ") As a "

sql = sql & " Where RowNum >= " & r1 & " And RowNum <= " & r2

DataTables("招标信息").SQLLoad(sql)

Dim s As String = e.Form.Controls("Chebox_sxs").Text

Dim tb1 As Table = Tables(e.Form.Name & "_Table1")

Dim dt As DataTable = Vars("zbxxdt")

Dim Colstr() As String

Dim qts As String() = {"'","#",""}

Dim trv As WinForm.TreeView = e.Sender

Dim flt As String = ""

Dim nd As WinForm.TreeNode

Dim pd As WinForm.TreeNode

Dim notchecked As Integer = 0

Colstr = s.split("|")

If e.Node.Name = "显示所有项目" Then

    If e.Node.Checked = True Then

        For Each nd In trv.AllNodes

            If nd.Name <> "显示所有项目" Then

                nd.Checked = False

            End If

        Next

        tb1.Filter = ""

    Else

        For Each nd In trv.AllNodes

            nd.Checked = False

...

        If flt > "" Then

            flt = flt & " Or (" & val & ")"

        Else

            flt = val

        End If

        notchecked + = 1

    End If

Next

Dim fy As String = flt

Page = 1

Functions.Execute("LoadData_fy",fy)

'========按归属部门进行数据加载==========

Dim fy As String = Args(0)

Dim fyjzfit As String         ' = "1=2"   '分页加载

Dim fdr As DataRow = DataTables("Users").Find("Name = '" & User.Name & "'")

If User.Type = UserTypeEnum.User Then

    If fdr IsNot Nothing Then

        If fdr("归属部门").Contains("总公司")  Then

            fyjzfit = "[_Identify] Is Not Null"

        Else

            fyjzfit = "归属部门 = '" & fdr("归属部门") & "'"

        End If

    End If

Else

    fyjzfit = "[_Identify] Is Not Null"

End If

fyjzfit = fyjzfit & fy

Dim r1 As Integer = (Page - 1) * 20 + 1

Dim r2 As Integer = Page * 20

Dim sql As String

Dim str As String = ""

For Each dc As DataCol In DataTables("招标信息").DataCols

    str &= dc.name.Tostring & ","

Next

sql = "Select " & str.trim(",") & " Fro m (Select Row_Number() Over(Order by 开标日期) As RowNum, * fro m 招标信息 where " & fyjzfit & ") As a "

sql = sql & " Where RowNum >= " & r1 & " And RowNum <= " & r2

msgbox(sql)

DataTables("招标信息").SQLLoad(sql)

此主题相关图片如下：777.png