我使用的MSflexgrid控件显示数据
结果显示如下
有些数据显示不完整,如手机跟座机
但我定义字段的宽度是够的哈
下面是我的显示代码
Dim strSQL, str1 As String
Dim ADOrs As New Recordset

ADOrs.ActiveConnection = ADOcn
strSQL = "select * from phone"
ADOrs.Open strSQL

str1 = "联系人" + vbTab + "QQ" + vbTab + "手机" + vbTab + "座机" + vbTab + "出生日期"
With MSFlexGrid1
.Clear
.Rows = 0
.Cols = 5
.AddItem str1
Do While Not ADOrs.EOF
Dim i As Integer
str1 = ""
For i = 0 To 4
If IsNull(ADOrs.Fields(i)) Then
str1 = str1 + " "
Else
str1 = str1 + ADOrs.Fields(i)
End If
If i <= 3 Then
str1 = str1 + vbTab
End If
Next i

.AddItem str1
ADOrs.MoveNext
Loop
.FixedRows = 1


咋办呢

搞笑
With MSFlexGrid1
.Clear
.Rows = 0
.Cols = 5
.ColWidth(0) = 8
.ColWidth(1) = 9
.ColWidth(2) = 11
.ColWidth(3) = 12
.ColWidth(4) = 10

我以为它的列宽是以字符为单位的
结果运行后只看到了这个控件的一个角角