以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  按条件取字段  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=113798)
--  作者：zoyong
--  发布时间：2018/1/23 11:57:00
--  按条件取字段

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

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

 

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

 

比如  用途列内容：小城镇工程款          类别明细的内容自动为：工程款
--  作者：有点甜
--  发布时间：2018/1/23 11:59:00
--  

 

[此贴子已经被作者于2018/1/23 11:59:32编辑过]
--  作者：有点甜
--  发布时间：2018/1/23 12:00:00
--  

for each s as string in str

    if e.newvalue.contains(s) Then

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

        exit for

    end if

next