| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2386 人关注过本帖, 1 人收藏
标题:Mshflexgrid控件显示数据时缺少表头?请教!
只看楼主 加入收藏
wangyiaihu
Rank: 1
等 级:新手上路
帖 子:96
专家分:0
注 册:2020-4-22
结帖率:100%
收藏(1)
已结贴  问题点数:20 回复次数:5 
Mshflexgrid控件显示数据时缺少表头?请教!
图片附件: 游客没有浏览图片的权限,请 登录注册

Mshflexgrid控件显示数据时缺少表头?请教!
程序代码:
With MSHFlexGrid1
          
  '设置网格列表的最大行和列
 .Rows = maxRows
.Cols = maxRows
  
'  .CellAlignment = flexAlignCenterCenter
  
  '将多余的列隐藏起来
  For i = maxRows - 1 To maxCols Step -1
    MSHFlexGrid1.ColWidth(i) = 0
  Next i
  '使该控件具有合并单元格的功能
  MSHFlexGrid1.MergeCells = flexMergeFree
   
  
  End With

 
    '  实例化Connection 对象
    Set conn11 = New ADODB.Connection
    
    '  设置连接提供者名称
    conn11.Provider = "MSDataShape"
    
    '  设置连接字符串
    conn11.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Aging.mdb "   '设置数据库路劲
    '  打开到数据源的连接
    conn11.Open
    'shape指令
    rs11.StayInSync = True
    
    '  打开游标
    rs11.Open "select * from 数据 '", conn11, 3, 2
    
    '  设置MSHFlexGrid控件数据源
    Set MSHFlexGrid1.DataSource = rs11
    
    MSHFlexGrid1.Refresh


 

 '判断结果
 If rs11.RecordCount > 0 Then
   '-----------------------------------------
   '判断记录总数
   '-----------------------------------------
  Label7.Caption = rs11.RecordCount

End If
搜索更多相关主题的帖子: 缺少 Mshflexgrid 数据 表头 控件 
2020-04-30 10:20
wangyiaihu
Rank: 1
等 级:新手上路
帖 子:96
专家分:0
注 册:2020-4-22
收藏
得分:0 
添加表头的代码,请教。
2020-04-30 11:13
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:20 
程序代码:
Private Sub Form_Load()
    Set conn11 = New ADODB.Connection
    conn11.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Aging.mdb "
    conn11.Open
    Dim rs11 As New ADODB.Recordset
    rs11.StayInSync = True
    rs11.Open "select * from 数据 '", conn11, 3, 2
    KK = rs11.RecordCount
With MSHFlexGrid1

 .Rows = 1 + KK   '关键在这一句,你原来的行数只有 KK 行
 .Cols = 12
   .ColWidth(0) = 0   '隐藏不需要的第一列,其他与 MSFlexGrid1 控件差不多。
  End With
    Set MSHFlexGrid1.DataSource = rs11
    MSHFlexGrid1.Refresh
  Label7.Caption = KK
End Sub

图片附件: 游客没有浏览图片的权限,请 登录注册

请不要选我!!!
2020-05-02 11:06
wangyiaihu
Rank: 1
等 级:新手上路
帖 子:96
专家分:0
注 册:2020-4-22
收藏
得分:0 
回复 3楼 ZHRXJR
2020-05-02 18:09
wangyiaihu
Rank: 1
等 级:新手上路
帖 子:96
专家分:0
注 册:2020-4-22
收藏
得分:0 
回复 3楼 ZHRXJR
你的答案永远都是让我完美解决问题,
而且能够消化看明白,谢谢。
2020-05-02 18:29
wj717
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2021-2-2
收藏
得分:0 
回复 3楼 ZHRXJR
版主大神,求指教,我在控件mshfgrid中做自由分组时,合并后的结果是
图片附件: 游客没有浏览图片的权限,请 登录注册




这样的,而没有得到我想要的
图片附件: 游客没有浏览图片的权限,请 登录注册




结果,有没有哪位大神出来指教下,万分感谢路过的大神!!!!

我的代码如下:

'设置表格格式

Dim MSHFGrid

'设置表格格式

Set MSHFGrid = ScreenItems("MSHFGrid1")

' MSHFGrid.Visible=0

' MSHFGrid.Clear

MSHFGrid.Cols = 6

MSHFGrid.Rows = 6

MSHFGrid.ColWidth(0)=0

MSHFGrid.RowHeight(0)=0

MSHFGrid.RowHeight(1) = 300

MSHFGrid.RowHeight(2) = 300

MSHFGrid.RowHeight(3) = 300

MSHFGrid.RowHeight(4) = 300

MSHFGrid.RowHeight(5) = 300

MSHFGrid.ColAlignment=4

'设置标题

MSHFGrid.TextMatrix(1,1)="序号"

MSHFGrid.TextMatrix(1,2)="时间"

MSHFGrid.TextMatrix(1,3)="地点"

MSHFGrid.TextMatrix(1,4)="人物"

MSHFGrid.TextMatrix(1,5)="细节"

MSHFGrid.ColWidth(1)=500

MSHFGrid.ColWidth(2)=2000

MSHFGrid.ColWidth(3)=1100

MSHFGrid.ColWidth(4)=1000

MSHFGrid.ColWidth(5)=1000

MSHFGrid.MergeCells=1

MSHFGrid.MergeRow(2)=True

MSHFGrid.MergeRow(3)=True

MSHFGrid.MergeRow(4)=True

MSHFGrid.MergeRow(5)=True

MSHFGrid.MergeCol(2)=True

MSHFGrid.MergeCol(3)=True

MSHFGrid.MergeCol(4)=True

MSHFGrid.MergeCol(5)=True

Dim c1,c2

For c1=2 To 5

 for c2=2 To 5

MSHFGrid.TextMatrix(c1,c2)="I Don't know"

 Next

Next



MSHFGrid.Visible=1
2021-02-03 09:55
快速回复:Mshflexgrid控件显示数据时缺少表头?请教!
数据加载中...
 
   



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

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