以文本方式查看主题

-  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=103205)
--  作者：feixianzhi
--  发布时间：2017/7/3 10:55:00
--  托管代码问题
各位老师，我想制作一个按钮，想实现：
当客户代码列为：2201、2208、2304、2407时，托管列对应的行显示“托管”，其他的行显示“非托管”。客户代码列和托管列全部为文本格式。请各位老师帮忙。
--  作者：有点甜
--  发布时间：2017/7/3 11:18:00
--  

dim dt as datatable = datatables("表A")
dt.ReplaceFor("托管", "托管", "客户代码 in (\'2201\',\'2208\',\'2304\',\'2407\')")
dt.ReplaceFor("托管", "非托管", "客户代码 is null or 客户代码 not in (\'2201\',\'2208\',\'2304\',\'2407\')")
--  作者：feixianzhi
--  发布时间：2017/7/4 10:46:00
--  
谢谢有点甜老师的帮忙。