请教老师字符匹配标识要如何实现 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

做一个产品说明文案检查系工具，有产品表和禁用词表（里面收集不能使用的词语）

在产品功效列的文本如有禁用词，则该词显红色，如不含禁用词，则不提示

例如“蕴含美白肌肤，抗衰老功效”，禁用词列有“美白”“抗衰”

运行后显示“蕴含美白肌肤，抗衰老功效”

请教老师如何实现

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.rar

老师，怎么按禁用词表里的每一列依次进行筛选，不按窗体文本控件

mark 高亮查找

If e.Col.name = "产品功效" Then
    Dim drs = DataTables("禁用词").Select("")
    Dim cval As String = e.Row(e.Col.Name)
    e.text = ""
    Dim g As Graphics = e.Graphics
    Dim fnt As New Font("宋体",e.Table.Font.Size, FontStyle.Bold)
    Dim x As Integer = e.x + 1
    Dim y As Integer = e.Y + 1
    Dim idx As Integer = 0

    Do While idx > -1
        idx = -1
        Dim val As String = ""
        For Each dr As DataRow In drs
            Dim v = dr("禁用词")
            Dim i = cval.IndexOf(v)
            If i > -1 Then
                If idx = -1 Then
                    idx = i
                    val = v
                ElseIf i < idx Then
                    idx = i
                    val = v
                End If
            End If
        Next
        If idx > -1 Then
            Dim temp As String = cval.SubString(0,idx)
            g.DrawString(temp,e.Table.Font,Brushes.black, x, y)
            x += g.MeasureString(temp, e.Table.Font).width-3
            g.DrawString(val,fnt,Brushes.Red, x, y)
            x += g.MeasureString(val, fnt).width-1
            cval = cval.SubString(idx+Val.Length)
        End If
    Loop
    g.DrawString(cval,e.Table.Font,Brushes.black, x, y)
End If