| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 624 人关注过本帖
标题:[求助]我还要问,数据显示不完整
只看楼主 加入收藏
jmasm
Rank: 1
等 级:新手上路
威 望:1
帖 子:368
专家分:0
注 册:2006-9-24
收藏
 问题点数:0 回复次数:3 
[求助]我还要问,数据显示不完整
我使用的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


咋办呢
搜索更多相关主题的帖子: 手机 数据 vbTab ADOrs 
2006-10-21 20:52
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
你字段的宽度..好像跟控件的宽度没有什么关系吧?...
...你设置mshflexgrid控件的各列宽就行了..

我的msn: myfend@
2006-10-21 20:54
jmasm
Rank: 1
等 级:新手上路
威 望:1
帖 子:368
专家分:0
注 册:2006-9-24
收藏
得分:0 
搞笑
With MSFlexGrid1
.Clear
.Rows = 0
.Cols = 5
.ColWidth(0) = 8
.ColWidth(1) = 9
.ColWidth(2) = 11
.ColWidth(3) = 12
.ColWidth(4) = 10

我以为它的列宽是以字符为单位的
结果运行后只看到了这个控件的一个角角
2006-10-21 21:28
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
默认情况下..都是以Twip为单位..

我的msn: myfend@
2006-10-22 08:50
快速回复:[求助]我还要问,数据显示不完整
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.040998 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved