Question

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

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

Answer 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

     如：

   

追问

就是说，只能通过自己每个单元格判断咯？没有具体语句一次性来判断此行为空？

追答

目前我还没有发现别的办法哦!

Answer 2

if text="" then

追问

请问怎么个做法,是指一行呢?