| 网站首页 | 业界新闻 | 群组 | 人才 | 技术文章 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 551 人关注过本帖
标题:调用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: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:51
帖 子:545
专家分:3134
注 册: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
附件: 您没有浏览附件的权限,请 登录注册

QQ    2653043392
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: 7Rank: 7Rank: 7
等 级:黑侠
威 望:6
帖 子:94
专家分:599
注 册:2017-4-10
  得分:0 
以下是引用lucwd在2017-6-5 20:27:09的发言:

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

可以,自己绘制表格。
2017-06-06 11:01
xiangyue0510
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:75
帖 子:803
专家分:4715
注 册: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: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:湖北
等 级:版主
威 望:95
帖 子:1001
专家分:5162
注 册:2014-5-3
  得分:0 
sql语句可以直接得到日期计算结果的
2017-06-06 20:37







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

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