以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  "未将对象引用设置到对象的实例"错误出现的原因是什么？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88690)
--  作者：zzlord
--  发布时间：2016/8/7 20:24:00
--  "未将对象引用设置到对象的实例"错误出现的原因是什么？
各位老师好，我做了一个接口的程序，但在外接设备传输数据时会出现"未将对象引用设置到对象的实例"对话框，点击详细后，提示datarecieved里面的代码有问题，代码如下：
Dim i As Integer
For Each Int As String In e.Port.ReadExisting
For i = 1 To 100
Tables("啊").Value(i,"第二列") = Int
Tables("啊").Value(i,"第一列") = i
Next
Next
请问代码的问题出在哪里？以及如何解决？
--  作者：kylin
--  发布时间：2016/8/7 22:32:00
--  
Dim i As Integer
If e.Port.ReadExisting   IsNot Nothing
  For Each Int As String In e.Port.ReadExisting  
   For i = 1 To 100
     Tables("啊").Value(i,"第二列") = Int
     Tables("啊").Value(i,"第一列") = i
   Next
  Next
End If
试一下，增加这么一个判断
[此贴子已经被作者于2016/8/7 22:32:24编辑过]
--  作者：大红袍
--  发布时间：2016/8/8 9:24:00
--  

1、你的表，有100行吗？

 

2、你的表的datacolchanged写有什么代码？
--  作者：zzlord
--  发布时间：2016/8/29 11:13:00
--  
老师您好，我的表没有100行，而且datacolchanged里面也没有代码。
您的意思是在datacolchanged里面加一个数据输入自动加行的语句吗？
--  作者：大红袍
--  发布时间：2016/8/29 12:08:00
--  
If e.Port.ReadExisting IsNot Nothing
    For Each s As String In e.Port.ReadExisting
        Dim nr As Row = Tables("啊").addnew
        nr("第二列") = s
        nr("第一列") = nr.Index+1
    Next
End If
--  作者：zzlord
--  发布时间：2016/8/30 10:54:00
--  
谢谢老师！