我用dbgrid连接一个表,想用list显示表中除第一项的所有字段名称,这样编程没有反应,请问应该怎样修改,谢谢!
Private Sub Form_Load()
For i = 1 To 20
  If DBGrid1.Columns(i) = "" Then
  Exit For
  Else
  List1.List(i) = DBGrid1.Columns(i)
  
  End If
Next i  
End Sub

解决方案 »

  1.   

    Private Sub Form_Load()
    For i = 1 To 20
      If DBGrid1.Columns(i) = "" Then
      Exit For
      Else
      List1.List(i) = DBGrid1.Columns(i).Caption
      
      End If
    Next i  
    End Sub
      

  2.   

    取DataGrid的列名用這個更好
        For Each nA In Me.DataGrid1.Columns
                Print nA.Caption
        Next
      

  3.   

    还是不行啊
    Private Sub Form_Load()
    For i = 1 To 20  
      List1.AddItem DBGrid1.Columns(inti).Caption
    Next i
     
    End Sub
    这样的话list里各项显示都是空字符串,dbgrid里个字段都有名称的,困扰好久了,亟待解决,谢谢!!!在线等
      

  4.   

    用這個可以正常解決
                Me.List1.Clear
        For Each nA In Me.DataGrid1.Columns            Me.List1.AddItem nA.Caption
        Next
      

  5.   

    看錯了 Dbgrid沒有接觸過 不過我估計 應該用上面的方法可以實現
      

  6.   

    Me.List1.Clear
        For Each nA In Me.DataGrid1.Columns            Me.List1.AddItem nA.Caption
        Next
    我用的是dbgrid,我把你的代码改成dbgrid后还是不行啊?是不是用dbgrid不能得到column的名称?
      

  7.   

    dbGrid是怎麽引入的啊?用的是那個ocx啊?是不是第三方的控件哦
      

  8.   

    你用的是apex true Dbgrid pro 6.0(oledb)那個ocx嘛?
      

  9.   

    换成datagrid问题就解决了,谢谢mustudent啊!
      

  10.   

    哦  你的dbgrid是什麽的哪?
      

  11.   

    要得话我可以传给你,不记得在哪里下载的了,和datagrid功能差不多,用来连接data的,是不是因为是DAO控件,所以不能实现那个功能?
      

  12.   

    不是,是microsoft data grid bond control
      

  13.   

    我不要你的控件 我就是想看看你的控件的屬性 解決問題 既然你改用DataGrid了 那就算了