你思路有问题,你在这个事件时候,你的登陆窗口还没有打开,也就是 _UserName 还没有值。
你应该在这个事件设置 e.Filter = "1=2"
然后再在登陆窗口那里设置代码,如
DataTable("表A").LoadFilter = "业务归属 = '" & _UserNam & "'"
DataTable("表A").Load