社区
数据库(包含打印,安装,报表)
帖子详情
显示数据记录
fengyetianshi
2003-12-12 01:52:41
怎样用MSFlexGrid控件来显示所查询的记录呢?此控件的一些重要方法有那此。
...全文
53
5
打赏
收藏
显示数据记录
怎样用MSFlexGrid控件来显示所查询的记录呢?此控件的一些重要方法有那此。
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
zhizhi625
2003-12-12
打赏
举报
回复
重要方法:
.additem
.clean
重要属性:
.textmatrix
重要事件:
Private Sub Grid_EnterCell()
Private Sub Grid_leaveCell()
zhizhi625
2003-12-12
打赏
举报
回复
msflexgrid支持rdo!不支持ado!
解决方法:
1:将set msflexgrid.datasource=data控件
2:得出一个rescordset,用循环一行一行复值
3:改用支持ado的mshflexgrid控件
WangPengAn
2003-12-12
打赏
举报
回复
比較簡單的就是賦值
set msflexgrid1.datasource=rs
forever_chang
2003-12-12
打赏
举报
回复
我的代码,希望对你有所帮助
'对每个操作人员分别进行统计
If rsHuman.RecordCount > 0 Then
With proCount
.Value = 0
.Max = rsHuman.RecordCount
End With
intID = 0
MSHFlexGrid.Row = 0
Do Until rsHuman.EOF
'控制进度条
proCount.Value = proCount.Value + 1
DoEvents
intID = intID + 1
intAccept = 0
intRepair = 0
intReturn = 0
strUserName = rsHuman("user_name")
'找出与该操作人员有关的机型
strSQL = "SELECT DISTINCT model_code FROM tmp_human_count WHERE (reg_date='" & _
strDate & "' AND reg_name='" & strUserName & "') OR (repair_date='" & _
strDate & "' AND repair_name='" & strUserName & "') OR (return_date='" & _
strDate & "' AND return_name='" & strUserName & "') "
rsModel.Open strSQL, cnnTemp
Do Until rsModel.EOF
MSHFlexGrid.Row = MSHFlexGrid.Row + 1
MSHFlexGrid.Col = 0
MSHFlexGrid.Text = Str(intID)
MSHFlexGrid.Col = 1
MSHFlexGrid.Text = strUserName
strModel = rsModel("model_code")
MSHFlexGrid.Col = 2
MSHFlexGrid.Text = strModel
'统计接收数量
strSQL = "SELECT COUNT(*) AS num FROM tmp_human_count WHERE model_code='" & strModel & "' AND reg_date='" & strDate & "' AND reg_name='" & strUserName & "'"
rsCount.Open strSQL, cnnTemp
MSHFlexGrid.Col = 3
MSHFlexGrid.Text = CStr(rsCount("num"))
intAccept = intAccept + rsCount("num")
rsCount.Close
'统计维修数量
strSQL = "SELECT COUNT(*) AS num FROM tmp_human_count WHERE model_code='" & strModel & "' AND repair_date='" & strDate & "' AND repair_name='" & strUserName & "'"
rsCount.Open strSQL, cnnTemp
MSHFlexGrid.Col = 4
MSHFlexGrid.Text = CStr(rsCount("num"))
intRepair = intRepair + rsCount("num")
rsCount.Close
'统计返回数量
strSQL = "SELECT COUNT(*) AS num FROM tmp_human_count WHERE model_code='" & strModel & "' AND return_date='" & strDate & "' AND return_name='" & strUserName & "'"
rsCount.Open strSQL, cnnTemp
MSHFlexGrid.Col = 5
MSHFlexGrid.Text = CStr(rsCount("num"))
intReturn = intReturn + rsCount("num")
rsCount.Close
rsModel.MoveNext
MSHFlexGrid.AddItem ""
MSHFlexGrid.TopRow = MSHFlexGrid.Row
Loop
rsModel.Close
'生成合计
MSHFlexGrid.Row = MSHFlexGrid.Row + 1
MSHFlexGrid.Col = 0
MSHFlexGrid.Text = Str(intID)
MSHFlexGrid.Col = 1
MSHFlexGrid.Text = strUserName
MSHFlexGrid.Col = 2
MSHFlexGrid.Text = "合计:"
MSHFlexGrid.Col = 3
MSHFlexGrid.Text = intAccept
MSHFlexGrid.Col = 4
MSHFlexGrid.Text = intRepair
MSHFlexGrid.Col = 5
MSHFlexGrid.Text = intReturn
MSHFlexGrid.AddItem ""
MSHFlexGrid.TopRow = MSHFlexGrid.Row
rsHuman.MoveNext
Loop
wyqwn
2003-12-12
打赏
举报
回复
dim rs as new adodb.recordset
dim sql as string
sql="select * from 表"
rs.open sql,cn,1,2
set msflexgrid1.datesource=rs
仿微信对话列表滑动删除功能
仿微信对话列表滑动删除功能,在listview中可以滑动删除item
JSP版流量统计系统
看起来有点像大洲的那个,jsp中算不错的啦.值得下载回去研究研究
MVC+EF框架+EasyUI实现权限管理 源码程序
MVC+EF框架+EasyUI实现权限管理是对权限的基本操作的操作,具体的可以参看我的博客http://www.cnblogs.com/hanyinglong/
Android 开发即时聊天工具 YQ (更新)
Android 开发即时聊天工具 YQ ,仿QQ,实现网络即时聊天。
VFP编的五子棋游戏
五子棋源代码 VFP编的游戏,棋力不错。
数据库(包含打印,安装,报表)
1,217
社区成员
55,952
社区内容
发帖
与我相关
我的任务
数据库(包含打印,安装,报表)
VB 数据库(包含打印,安装,报表)
复制链接
扫一扫
分享
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章