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

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

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

 你想在什么地方控制，就写在哪里，一个按钮也行。

 你想在项目启动的时候控制，还是其他什么时候？

 写错，再改一下

dim dt as datatable = datatables("维修单")

有时我也遇到过，点几次上传就行了。

 大致这样吧。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:练习20130110a.table

Dim dt As DataTable = DataTables("维修单")
If User.Group = "设备科" OrElse User.Group = "经理" OrElse User.Group = "其他" Then
    dt.loadfilter = ""
Else If User.Group = "制造部" Then
    Dim roles As String = user.roles.Replace(",", "','")
    dt.LoadFilter = "设备使用部门 in ('" & roles & "')"
Else
    dt.loadfilter = "设备使用部门 = '" & User.Group & "'"
End If
dt.load