Hi
Just wondering if anyone can help me.
I've written a basic piece of code that searches through and excel sheet and brings it into a flexgrid.
If it finds the text that has been searched for it puts it into BOLD text. What I am trying to do is if it does not find anything then it removes it.
This is what I have got so far...
Code:Dim rownum As Long Dim rowtoremove As Long Dim num As Long If loggerflag = True Then Path = frmSoftRequest.cboLogger.Text End If frmSoftRequest.MSFlexGrid1.FillStyle = flexFillSingle For i = 0 To frmSoftRequest.MSFlexGrid1.Cols - 1 For j = 1 To frmSoftRequest.MSFlexGrid1.Rows - 1 If InStr(frmSoftRequest.MSFlexGrid1.TextMatrix(j, i), Path) Then frmSoftRequest.MSFlexGrid1.col = i frmSoftRequest.MSFlexGrid1.row = j frmSoftRequest.MSFlexGrid1.CellFontBold = True ElseIf InStr(frmSoftRequest.MSFlexGrid1.TextMatrix(j, i), Path) = 0 And _ frmSoftRequest.MSFlexGrid1.Rows <> 1 And frmSoftRequest.MSFlexGrid1.Cols <> 1 Then frmSoftRequest.MSFlexGrid1.RemoveItem (frmSoftRequest.MSFlexGrid1.row) End If Next j Next i


Reply With Quote




Bookmarks