主题：如何根据用户角色加载数据？

 楼主，你使用的是自带的用户管理吗？如果是，参考如下代码。

 dim dt as datatable = datatalbes("维修单")
 if User.Group = "设备科" then
     dt.loadfilter = ""
     dt.load
 else
     dt.loadfilter = "使用部门 = '" & User.Group & "'"
     dt.load
 end if