以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=162187)
--  作者：sjf0823
--  发布时间：2021/4/8 13:09:00
--  代码求助
 Dim str() As String = {"加班成员"}
        For Each c As String In str
 If e.DataRow(c) Like "*巴姆*" Then
                e.DataRow("巴姆")  = dr("加班时长")
            Else
                e.DataRow("巴姆")  = Nothing
            End If
老师我在运行这个代码时我们公司有3个同事分别姓名为白玛巴姆、泽仁巴姆、巴姆，我在录入白玛巴姆和泽仁巴姆数据时，巴姆列也会自动录入加班时长，请问老师这个代码要怎么修改下，可以实现巴姆不会录入泽仁巴姆和白玛巴姆的加班数据。
--  作者：小美菜
--  发布时间：2021/4/8 13:25:00
--  
“*巴姆*”是只要包含“巴姆”都执行true部分；
If e.DataRow(c) =  "巴姆"   Then
                e.DataRow("巴姆")  = dr("加班时长")
            Else
                e.DataRow("巴姆")  = Nothing
            End If