如何向vb MSFlexGrid控件添加数据？

比较好的办法是没有的.

不过可以换下面的几个方法试试:

1种

直接msflexgrid.clear

这样可能把列头也给清除了,那么只能写个加载列表的过程,在clear后重新加载.

msflexgrid.clear

call

a

'a我为加载列表名

的过程.

2种

msflexgrid.datasource=sql

'sql为一个空表的连接

建立一个空表

然后查询绑定,这样就可以了.

msflexgrid.refresh'刷新记录

实事空表记录

显示为空(与你的填充函数绑定的)

'MSHFlexGrid1是不能输入的，只有通过一个text来输入

Private Sub MSHFlexGrid1_Click()

Dim i As Long

With MSHFlexGrid1

If .Col = 1 Then

Text1.Text = Trim(.Text)

Text1.Left = .CellLeft - 10

Text1.Top = .CellTop - 10

Text1.Height = .CellHeight

Text1.Width = .CellWidth

Text1.Visible = True

Text1.SetFocus

Else

Text1.Visible = False

End If

End With

End Sub

Private Sub Text1_Change()

With MSHFlexGrid1

.Text = Trim(Text1.Text)

End With

End Sub

---