我用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
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
解决方案 »
- VB mscomm控件的 oncom 事件
- 怎样实现利用vb导出excel.xsl时,自动利用系统时间给文件命名???
- 如何实现mdi子窗体停靠在Mdi主窗体的某一个位置
- 为什么在一个工程的usercontrol中 连trim space都无法使用了
- 谢了个控件 控件的UserControl_Initialize是不是先于窗体Form_Load事件!
- How to use PrintForm method?
- 在listview上点右键,怎么样知道是点击的哪一列,在线等待,急!!!
- 请教ADO对象和DAO对象不能共存的方法
- Sendkeys和变量生命期的的问题?
- 关于图象的保存问题(VB 6.0)
- 向好心人求救!
- 下面VB控制EXCEL连接程序怎么修改代码?
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
For Each nA In Me.DataGrid1.Columns
Print nA.Caption
Next
Private Sub Form_Load()
For i = 1 To 20
List1.AddItem DBGrid1.Columns(inti).Caption
Next i
End Sub
这样的话list里各项显示都是空字符串,dbgrid里个字段都有名称的,困扰好久了,亟待解决,谢谢!!!在线等
Me.List1.Clear
For Each nA In Me.DataGrid1.Columns Me.List1.AddItem nA.Caption
Next
For Each nA In Me.DataGrid1.Columns Me.List1.AddItem nA.Caption
Next
我用的是dbgrid,我把你的代码改成dbgrid后还是不行啊?是不是用dbgrid不能得到column的名称?