以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  未将对象引用设置到对象的实例  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=103377)
--  作者：芝士巧克力
--  发布时间：2017/7/6 17:37:00
--  未将对象引用设置到对象的实例
                Dim fl1 As String = "d:\\web\\uploadfiles\\log.txt" 
                If FileSys.FileExists(fl1) Then \'如果文件存在
                    Dim ifo As new FileInfo(fl1)
 
                    Dim lst1 As List(of String) =  dr.Lines("附件大小")
                    lst1.add( CStr(Ifo.Length) )        
                    dr.Lines("附件大小") = lst1
                    dr.save() 
                End If


老是报错说未将对象引用设置到对象的实例，这是为什么
--  作者：有点甜
--  发布时间：2017/7/6 17:48:00
--  
Dim fl1 As String = "d:\\web\\uploadfiles\\log.txt"
If FileSys.FileExists(fl1) Then \'如果文件存在
    Dim ifo As new FileInfo(fl1)
    Dim dr As DataRow = Tables("表a").current.DataRow
    Dim lst1 As List(of String) =  dr.Lines("附件大小")
    lst1.add( CStr(Ifo.Length) )
    dr.Lines("附件大小") = lst1
    dr.save()
End If
--  作者：芝士巧克力
--  发布时间：2017/7/6 17:48:00
--  
dr是前面定义过的，
 Dim dr As DataRow = DataTables("客户附件表").AddNew()
--  作者：有点甜
--  发布时间：2017/7/6 18:00:00
--  

 那代码，是不可能报错的。

 

 2楼的代码报错吗？
--  作者：芝士巧克力
--  发布时间：2017/7/6 18:03:00
--  
代码没有报错，是运行的时候弹出来的未将对象引用设置到对象的实例
--  作者：芝士巧克力
--  发布时间：2017/7/6 18:05:00
--  
是不是引用fileinfo需要什么东西
--  作者：有点甜
--  发布时间：2017/7/6 18:10:00
--  
以下是引用芝士巧克力在2017/7/6 18:03:00的发言：
代码没有报错，是运行的时候弹出来的未将对象引用设置到对象的实例

 

代码不可能有问题的。加入msgbox定位哪句代码出错。

 

http://www.foxtable.com/webhelp/scr/1485.htm