If e.DataCol.Name = "用途" AndAlso e.NewValue > "" then
Dim str() As String = {"税金","投保金","履约金","材料款","工程款","租赁","劳务","投标费","保函"}
现在想“用途”列取上面含有的字段 填写“类别明细”列
比如 用途列内容:小城镇工程款 类别明细的内容自动为:工程款