MSFlexGrid 删除的一个问题
从txt中读入文本到MSFlexGrid 。期间我想过滤一些信息,例如某行含有123就不进行添加,如果不含有就进行添加,下面是我我的代码。。比较乱、、、、
Dim s As String, a, i As Integer, j As Integer
Open newpath & "a" & ".bz" For Input As 1
Grid1.Rows = 1
Line Input #1, s
a = Split(s, ",")
Grid1.Cols = UBound(a) + 1
Seek 1, 1
Do While EOF(1) = False
Grid1.AddItem "" /问题应该出在这。
Line Input #1, s
a = Split(s, ",")
i = i + 1
For j = 1 To UBound(a)
If InStr(1, a(6), Format(Now, "YYYY-MM-DD")) Then Grid1.TextMatrix(i, j) = a(j)
Next
Loop
Close
With Grid1
For zzz = 1 To .Rows - 1
For ccc = 1 To .Rows - 1
If InStr(1, .TextMatrix(ccc, 2), "C") Then Else .RemoveItem ccc
Next ccc
Next zzz
End With
但是我发现读是读进来了 但是出现好多没有内容的格子,后来我就想判断是否是空文本来进行删除,可是我进行删除后发现并没有完全删除。。。。。。。 纳闷了。。 还是请高手麻烦给该下,,,
[解决办法]
自己搞定了。。 原来是判断的位置错误了。。。 呵呵。。。