vb 6.0中如何判断VSFlexGrid1是否一行都为空??

Len(Trim(.Cell(flexcpText, I, 1, I, .Cols - 1))) = .Cols - 2 这样可以

2025-05-05 05:30:03

推荐回答（1个）

回答1：

如下图:

1、首先确定FlexGrid 的Cols 属性值，也就是当前使用多少列。

如上面的FlexGrid 有8列，在程序中，列值是按0到7排列

2、要获取各单元格的值，用TextArray(Index)，Index 表示各单元格的序列。

上面的 FlexGrid从第三行，第二列开始才是真正的数据区域，那么Index值

的计算方法是：Index=(2*8+1)=17,所以 TextArray(17)=70

3、所以要判断那一行中各单元格的值是否为空，首先要确定起始位置，然后利用

TextArray(Index) 判断即可了。

如上图：

Dim I As Integer '行值

Dim J As Integer '列值

I=FlexGird.Cols '取当前列值

'如果判断第7行 J=(7-1)*8+1

For J=1 To 8

If TextArray((7-1)*I+J)="" Then '这里是 I 不是1

MsgBox "该单元格为空值"

End If

Next J

如：