主题：按条件取字段

If e.DataCol.Name = "用途" AndAlso e.NewValue > "" then

Dim str() As String = {"税金","投保金","履约金","材料款","工程款","租赁","劳务","投标费","保函"}
  

现在想“用途”列取上面含有的字段    填写“类别明细”列

比如  用途列内容：小城镇工程款          类别明细的内容自动为：工程款

for each s as string in str

    if e.newvalue.contains(s) Then

        e.datarow("类别明细") = s

        exit for

    end if

next