主题：按条件取值填充

If e.DataCol.Name = "交易详细信息" AndAlso e.NewValue > ""

        Dim arr() As String = e.NewValue.replace(vbcr,"").split(vblf)

        Dim str() As String = {"税金","投保金","履约金","材料款","工程款","租赁","劳务","投标费","保函","介绍信","经营费用","管理费用","财务费用","工资福利"}

        For Each a As String In arr

            If a.StartsWith("用途") Then

                Dim idx As Integer = a.IndexOf("(")

                If idx = -1 Then idx = a.Length

                Dim s As String = a.SubString(2,idx-5).Trim

                For Each f As String In str

                    If s.EndsWith(f) Then

                        e.DataRow("类别明细") = f

                        s = s.SubString(0,s.Length - f.Length)

                        Exit For

                    End If

                Next

                e.DataRow("用途") = s

                Exit For

            End If

        Next

    End If