老师:我想根据操作员的归属部门进行数据加载,下面经色代码出错?
2、是不是SQL中不能用这种表达合成式来处理?
'========按归属部门进行数据加载==========
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
'生成目录树
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = V
cmd.CommandText = "Select DISTINCT 招标审核,咨询类型,归属部门,项目名称,业务性质,投标地区,评标方式,报价方式,项目状态,工程类别,开标日期 Fro m {招标信息} Where fyjzfit"
dt = cmd.ExecuteReader()
'加载第一页数据
With DataTables("招标信息")
.LoadFilter = fyjzfit '清除加载条件
.LoadPage = 0 '加载第一页
.LoadTop = 12 '每页5行
.Load()
e.Form.Controls("Page").Value = 1 & "/" & .TotalPages
End With