改成比如

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

请照抄啊

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

用LoadOver设置的分页，只能根据 _Identify 列排序，如果需要根据日期列排序，需要换一种方式，如

http://www.foxtable.com/webhelp/scr/2721.htm

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

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)

代码不需要修改啊，现在执行报什么错？出现什么问题？

建议你把 fy 变量也和 page 一样，设置成public的，不然你换页的时候，获取不到条件fy。