以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  红袍老师，这个什么未将对象引用设置到对象的实例，代码怎么修改？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85015)
--  作者：scofields
--  发布时间：2016/5/15 22:04:00
--  红袍老师，这个什么未将对象引用设置到对象的实例，代码怎么修改？

红袍老师，这段代码写进了LoadUserSetings，发现每次打开项目后，都提示“未将对象引用设置到对象的实例。”，这是怎么回事，我看代码问题也不大啊！
Tables("FAJHB").DataTable.Load()
If User.Group <>"销售开票" 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"
--  作者：大红袍
--  发布时间：2016/5/15 23:32:00
--  
CurrentTable.DataTable.LoadTop = "100 percent"

 

试试改成

 

 DataTables("FAJHB").LoadTop = "100 percent"
 
调试程序的方法