| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1958 人关注过本帖
标题:调用access中一列数据进行计算 并将结果显示到MSHFlexGrid中
只看楼主 加入收藏
lucwd
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2017-5-4
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:6 
调用access中一列数据进行计算 并将结果显示到MSHFlexGrid中
access中有一列数据是时间比如2017-6-5,怎么调用这列数据减去当前时间得到天数,显示在MSHFlexGrid中。
搜索更多相关主题的帖子: access 
2017-06-05 16:07
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:15 
图片附件: 游客没有浏览图片的权限,请 登录注册

非常简单,关键代码如下,数据库连接略。
程序代码:
Dim db As New ADODB.Connection, cors As New ADODB.Recordset
'-------------------------------------------------------------
cors.Open "select * from 日期数据 ", db, 3, 2
AAA = cors.RecordCount
MSFlexGrid1.Clear
MSFlexGrid1.Visible = True
With MSFlexGrid1
    .Cols = 4
    .Rows = 1 + AAA
    .TextMatrix(0, 0) = "序号"
    .TextMatrix(0, 1) = "日期"
    .TextMatrix(0, 2) = "今日日期"
    .TextMatrix(0, 3) = "间隔天数"     '8295
    .ColWidth(0) = 800
    .ColWidth(1) = 1500
    .ColWidth(2) = 1500
    .ColWidth(3) = 1500
    For I = 1 To AAA
    .TextMatrix(I, 0) = I
    .TextMatrix(I, 1) = cors!日期
    .TextMatrix(I, 2) = Date
    .TextMatrix(I, 3) = DateDiff("d", cors!日期, Date)
    cors.MoveNext
    Next I
End With

请不要选我!!!
2017-06-05 19:18
lucwd
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2017-5-4
收藏
得分:0 
回复 2楼 ZHRXJR
你好 我想再问下MSHFlexGrid可不可以对特定的行设置颜色 ,比如大于20天的显示红色 小于20天的显示蓝色
2017-06-05 20:27
wlrjgzs
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:26
帖 子:212
专家分:1566
注 册:2017-4-10
收藏
得分:0 
以下是引用lucwd在2017-6-5 20:27:09的发言:

你好 我想再问下MSHFlexGrid可不可以对特定的行设置颜色 ,比如大于20天的显示红色 小于20天的显示蓝色

可以,自己绘制表格。
2017-06-06 11:01
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:938
专家分:5244
注 册:2015-8-10
收藏
得分:5 
指定当前单元格之后可以,你这个可以逐行判断自后设置
With MSHFlexGrid1
    '修改Textmatrix(0,0)的背景色
    .Row = 0
    .Col = 0
    .CellBackColor = vbRed


    '修改Textmatrix(0,1)的背景色,字体
    .Row = 0
    .Col = 1
    .CellBackColor = vbYellow
    .CellFontSize = 12
    .Redraw = True
End With

2017-06-06 15:04
lucwd
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2017-5-4
收藏
得分:0 
谢谢大家 最后我是在access中建了个查询,直接 select * from 查询 wher '条件'  再根据版主们的代码 逐行显示并改变颜色。
2017-06-06 18:45
xzlxzlxzl
Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15
来 自:湖北
等 级:贵宾
威 望:125
帖 子:1091
专家分:5825
注 册:2014-5-3
收藏
得分:0 
sql语句可以直接得到日期计算结果的
2017-06-06 20:37
快速回复:调用access中一列数据进行计算 并将结果显示到MSHFlexGrid中
数据加载中...
 
   



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

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