标题:MSFlexGrid的计算
只看楼主
lzxagy
Rank: 1
等 级:新手上路
帖 子:69
专家分:0
注 册:2007-8-28
结帖率:66.67%
 问题点数:0 回复次数:21 
MSFlexGrid的计算
要实现下图功能,为什么计算结果从25-370开始显示啊,我想要从15-250开始显示啊.是不是循环写的有问题,肯请帮助!
代码如下:
Private Sub Command2_Click()
With MSFlexGrid2
    Dim a, b, c, d, e, n, x, row, col As Integer
   
    x = MSFlexGrid1.Rows
   
    For n = 1 To x - 2
  
   
    a = Val(MSFlexGrid1.TextMatrix(n, 0))
    b = Val(MSFlexGrid1.TextMatrix(n, 1))
    c = Val(MSFlexGrid1.TextMatrix(n + 1, 0))
    d = Val(MSFlexGrid1.TextMatrix(n + 1, 1))
   
    MSFlexGrid2.Rows = c - a + 2
    MSFlexGrid2.Cols = 2
      e = Int((d - b) / (c - a))
        MSFlexGrid2.TextMatrix(0, 0) = "高度"
        MSFlexGrid2.TextMatrix(0, 1) = "容积"
      MSFlexGrid2.TextMatrix(1, 0) = e
    For row = 1 To MSFlexGrid2.Rows - 1
   
   MSFlexGrid2.TextMatrix(row, 0) = a
   
    MSFlexGrid2.TextMatrix(row, 1) = b
     a = a + 1
     b = b + e
     Next row
   
     Next n
   
     End With
     
   
   
   

End Sub

[[italic] 本帖最后由 lzxagy 于 2007-12-26 14:49 编辑 [/italic]]

1.jpg (15.65 KB)
搜索更多相关主题的帖子: MSFlexGrid Val col row Integer 
2007-12-26 14:48
dawn4640576
Rank: 1
等 级:新手上路
帖 子:1079
专家分:0
注 册:2007-9-19
得分:0 
For n = 1 To x - 2
这句
n要从0开始.

我看青山多妩媚料青山看我应如是
2007-12-26 15:02
lzxagy
Rank: 1
等 级:新手上路
帖 子:69
专家分:0
注 册:2007-8-28
得分:0 
n是要从1开始啊
2007-12-26 15:05
dawn4640576
Rank: 1
等 级:新手上路
帖 子:1079
专家分:0
注 册:2007-9-19
得分:0 
看错了.

我看青山多妩媚料青山看我应如是
2007-12-26 15:07
lzxagy
Rank: 1
等 级:新手上路
帖 子:69
专家分:0
注 册:2007-8-28
得分:0 
应该是 For row = 1 To MSFlexGrid2.Rows - 1 中的row错了,但是怎么该呢?
2007-12-26 15:16
dawn4640576
Rank: 1
等 级:新手上路
帖 子:1079
专家分:0
注 册:2007-9-19
得分:0 
第一次循环时row是应该从1开始.到第二次循环时,row就应该从12开始了.
出现这样的结果是你每次都认row从1开始循环了.

我看青山多妩媚料青山看我应如是
2007-12-26 15:35
lzxagy
Rank: 1
等 级:新手上路
帖 子:69
专家分:0
注 册:2007-8-28
得分:0 
怎么该啊?
2007-12-26 15:53
dawn4640576
Rank: 1
等 级:新手上路
帖 子:1079
专家分:0
注 册:2007-9-19
得分:0 
For row = 10 * (n-1)+1 To 10 * (n-1)+MSFlexGrid2.Rows - 1
   
这样试试

我看青山多妩媚料青山看我应如是
2007-12-26 16:11
lzxagy
Rank: 1
等 级:新手上路
帖 子:69
专家分:0
注 册:2007-8-28
得分:0 
怎么每人帮忙啊!
2007-12-27 09:11
随风逐流
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:passerby
等 级:版主
威 望:8
帖 子:4054
专家分:271
注 册:2007-6-13
得分:0 
不好意思,没看懂

[url=http://www./html/6/6694/]极道金丹[/url][url=http://www./html/2/2849/]九阴九阳[/url][url=http://www./html/2/2596/]凡人修仙传[/url]
2007-12-27 09:24



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-194399-1-1.html




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

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