主题：行权限

Dim dt As DataTable = DataTables("外购表")
Dim flt As String
Select Case uuer.group
    Case "其他"
        flt = "申请者 = '"& user.name &"'"
    Case Else
        flt = ""
End Select
dt.loadfilter = flt
dt.load