我在项目属性或窗口设置了加载部分数据后,无法在窗口中的TOPICBAR中显示筛选值。
'设置表设备的筛选加载
S elect Case user.Type
Case UserTypeEnum.Developer,UserTypeEnum.Administrator
Tables("设备").DataTable.LoadFilter = Nothing
Case UserTypeEnum.User
S elect Case user.group
Case "桩基部"
'DataTables("设备").LoadFilter = "[产品类别] = '桩基检测'"
Tables("设备").DataTable.LoadFilter = "[所属部门] = '桩基部'"
Case "建材部"
Tables("设备").DataTable.LoadFilter = "[所属部门] = '建材部'"
Case "环境部"
Tables("设备").DataTable.LoadFilter = "[所属部门] ='环境部'"
Case "结构部"
Tables("设备").DataTable.LoadFilter = "[所属部门] ='结构部'"
Case "路桥部"
Tables("设备").DataTable.LoadFilter = "[所属部门] ='路桥部'"
Case "管理层","管理部","报告室"
Tables("设备").DataTable.LoadFilter = Nothing
End S elect
End S elect
Tables("设备").DataTable.Load
‘这个是在设备表的导航窗口中的代码:
Dim Page1 As WinForm.Topicpage
Dim cnt1 As Integer = Tables("设备").DataTable.SQLCompute("Count(设备编号)","[有效期] <= 0 and 设备状态='正常'")
Dim cnt2 As Integer = Tables("设备").DataTable.SQLCompute("Count(设备编号)","有效期 < 30 and 有效期 > 0 and 设备状态='正常'")
Page1 = e.Form.Controls("TopicBar1").Pages.Add("设备检定","设备检定")
Page1.Links.Add("已过期","已过期(" & cnt1 & ")" )
Page1.Links.Add("即将过期","即将过期(" & cnt2 & ")" )
Dim Page2 As WinForm.Topicpage
Dim cnt3 As Integer = Tables("设备").DataTable.SQLCompute("Count(设备编号)","设备状态='正常'")
Dim cnt4 As Integer = Tables("设备").DataTable.SQLCompute("Count(设备编号)","设备状态='停用'")
Dim cnt5 As Integer = Tables("设备").DataTable.SQLCompute("Count(设备编号)","设备状态='报废'")
Dim cnt6 As Integer = Tables("设备").DataTable.SQLCompute("Count(设备编号)","设备状态 is null")
Page2 = e.Form.Controls("TopicBar1").Pages.Add("设备状态","设备状态")
Page2.Links.Add("正常","正常(" & cnt3 & ")" )
Page2.Links.Add("停用","停用(" & cnt4 & ")" )
Page2.Links.Add("报废","报废(" & cnt5 & ")" )
Page2.Links.Add("其他","其他(" & cnt6 & ")" )
Dim dh As WinForm.Form = Forms("设备导航")
dh.TimerEnabled=True
dh.TimerInterval = 10
’Tables("设备").DataTable. 这个换成“datatables("设备")” 也不行。用computer也不行。大神,这是何故呢?