红袍老师，这个什么未将对象引用设置到对象的实例，代码怎么修改？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

红袍老师，这段代码写进了LoadUserSetings，发现每次打开项目后，都提示“未将对象引用设置到对象的实例。”，这是怎么回事，我看代码问题也不大啊！

Tables("FAJHB").DataTable.Load()

If User.Group <>"销售开piao" AndAlso User.Group <>"发运地磅" Then

DataTables("JHS").LoadFilter = "客户名 = '" & User.Name & "'"

DataTables("FAJHB").LoadFilter = "客户名 = '" & User.Name & "'"

Else

DataTables("JHS").LoadFilter =""

DataTables("FAJHB").LoadFilter =""

End If

If User.Group <> "发运地磅" Then

Tables("JHS").visible =True

Tables("FAJHB").visible =True

Else

Tables("JHS").visible =False

Tables("FAJHB").visible =True

End If

CurrentTable.DataTable.LoadTop = "100 percent"

主题：红袍老师，这个什么未将对象引用设置到对象的实例，代码怎么修改？