Dim d(100) As String        For i = 1 To Gs.Fields.Count
            
            d(i) = Gs.Fields(i)            '将记录数据写到数组
        
        Next i
当程序运行时会报错,说无效的NULL 当i=1时  Gs.Fields(1)值为空的
   数组中的元素不能为空吗?
这个问题怎么可以解决呢?

解决方案 »

  1.   

    Gs.Fields(100) 是第100个字段
      

  2.   

        Dim d(100) As String         For i = 1 To Gs.Fields.Count 
                
                d(i) = Gs.Fields(i) & ""            '将记录数据写到数组 
            
            Next i 
      

  3.   

    就是当i=1时Gs.Fields(1)=NULL    报错    d(1)的值不可以为NULL吗?
      

  4.   

    字段从0开始数组要看你的意愿,如果要从1开始应该这样        Dim d(1 to 100) As String         For i = 1 To Gs.Fields.Count 
                
                d(i) = Gs.Fields(i -1) & ""            '将记录数据写到数组 
            
            Next i