If User.Roles = "部门职员" Then
MessageBox.Show("欢迎您:"& User.Group & "_" & User.Name)
'DataTables("终端用户").LoadFilter = "[报备人] = '" & User.Name & "'"
'DataTables("终端用户").Load
'MessageBox.Show("加载完毕")
上面的代码可以
'End If
Dim dr As DataRow
dr = DataTables("窗体设置").SQLFind("[表名] = '" & e.form.tablename & "'")
'MessageBox.Show(dr("数据列"))
If dr IsNot Nothing Then
e.Form.Controls("CheckedComboBox选择列").value = dr("数据列")
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = dr("数据源") '数据源
cmd.CommandText = "SE L ECT DI STINCT " & dr("数据列") & " From " & e.form.TableName & " where 客户等级 In ('B类客户','C类客户','T类客户','A类客户','Y类客户') "
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,dr("目录树"), "[报备人]='" & User.Name & "'", dr("筛选条件")) 这个代码会显示 找不到 报备人 列
trv.Nodes.Insert("客户数据", "客户数据(" & DataTables(e.form.tablename).sqlCompute("count(报备人)") & ")户", 0)
End If
End If