GRID显示数据问题(在线)急

Question

For i = 0 To desc.FieldCount - 1    '将数据集中的数据显示在表格中
    Grid1.Rows = dsrows + 1
    Grid1.Cols = desc.FieldCount
    Grid1.ColWidth(Grid1.Cols - 1) = 1     Grid1.Row = 0
     '减去最后一列
      Grid1.Col = i
      Grid1.Text = desc.FieldName(i)
      Rows = Rows + 1
       recs.MoveFirst
        Do While Not recs.EOF
        For k = 0 To desc.FieldCount - 1
        k = k + 1
          For i = 0 To desc.FieldCount - 1    '将数据集中的数据显示在表格中
    Grid1.Rows = dsrows + 1
    Grid1.Cols = desc.FieldCount
    Grid1.ColWidth(Grid1.Cols - 1) = 1 'FeatureKey列宽为1,不让用户看到    Grid1.Row = 0
     '减去最后一列
      Grid1.Col = i
      Grid1.Text = desc.FieldName(i)
      Rows = Rows + 1
       recs.MoveFirst
        Do While Not recs.EOF
        For k = 0 To desc.FieldCount - 1
        k = k + 1
        Grid1.TextMatrix(k, k) = recs.Fields(desc.FieldName(i)).Value
        Next k
        recs.MoveNext
      Loop
        'MsgBox ftr.FeatureKey
      
     Next i = recs.Fields(desc.FieldName(i)).Value
        Next k
        recs.MoveNext
      Loop
        
      
     Next i请问上面语句有什么问题?显示一个数据没问题,显示多个数据就有问题了,显示"对象变量或者WITH快变量未设置",,,,

Answer 1

问题已经解决,是数据有特殊符号问题 改为:
  For i = 0 To 2
    Grid1.Rows = dsrows + 1
    Grid1.Cols = desc.FieldCount
    Grid1.ColWidth(Grid1.Cols - 1) = 1 
    Grid1.Row = 0
      Grid1.Col = i
      Grid1.Text = desc.FieldName(i)
      Rows = Rows + 1
        For k = 0 To desc.FieldCount - 2
        Grid1.TextMatrix(i, k) = recs.Fields(desc.FieldName(i)).Value
        recs.MoveNext
        Next k
     Next i
但是只要数据超过K超过5行,就显示超越边界,但是我数据有110行