Question

VB MSFlexGrid控件

我用MSFlexGrid控件将access数据库中的内容显示出来了，但是有些字段内容太长，在网格里只能显示一部分，能不能让他自动调整宽度啊？？？ 点击数据库一行内容时，自动进入与之对应的TEXT文本框中进行编辑，添加，删除，修改，成功后下方的数据库也一起更新显示

Answer 1

因为每行的内容不同，设置自动调整列宽不一定能达到希望的效果。建议设置MSFlexGrid的属性：MSFlexGrid1.AllowUserResizing = flexResizeBoth 意为允许调整列宽。显示数据后，可将鼠标放在标题行（0行）上该列的右边界处，鼠标指针会变成左右箭头状，按下左键，向右拖动，即可拉宽该列。
如果文字过长，上述方法还不能完全显示，建议在MSFlexGrid控件下方放置一个文本框，编写代码，当鼠标单击MSFlexGrid的某个单元格时，将该单元格内容显示到文本框中。示例代码如下：（放入MSFlexGrid1_Click()中）
Text1 = MSFlexGrid1.TextArray(fgi(MSFlexGrid1.MouseRow, MSFlexGrid1.MouseCol))
其中，fgi是由行、列号计算单元格位置的函数。

Answer 2

行啊：

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Public Function ADODBJet(Optional DBfile As String, _
Optional pwd As String) As ADODB.Connection
On Error Resume Next
Dim defDB As String '数据库文件请自行设置
defDB = App.Path & "\Bond.mdb"
If DBfile = "" Then DBfile = defDB
Set ADODBJet = New ADODB.Connection
ADODBJet.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;User ID=Admin; " & _
"Jet OLEDB:Database Password=" & pwd & "; Data Source=" & DBfile
If ADODBJet.State <> 1 Then Set ADODBJet = Nothing
End Function

Private Sub Form_Load()
Set cn = ADODBJet
If cn.State = 1 Then
rs.Open "Select * From Member2", cn, 1, 2
Set VG1.DataSource = rs
End If
With VG1
.Editable = flexEDKbdMouse '可用键盘和鼠标编辑
.AllowUserResizing = flexResizeBothUniform '可用鼠标调整单元大小, 如果值为“flexResizeBoth”则单独调整行高或列宽
.ScrollTrack = True '行随滚动条翻滚
.WordWrap = True '单元中的文本过长换行显示
.AddItem "" '添加一行为了新增内容
End With
End Sub