主题：[求助]根据登录名加载数据出错！（已解决）

BeforeLoadInnerTable的事件代码应该是：

Dim zu As String = e.User.Group
If zu ="填报" Then
    If e.DataTableName = "日报源表"
        e.Filter = "[单位] = '" & e.User.Name & "'"
    Else
        e.Filter = "[单位]" =""
    End If
End If

注意BeforeLoadInnerTable的说明中有一句话： 注意此事件必须通过e.User来引用用户。