以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  加个判断  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187734)

--  作者：cyrollin --  发布时间：2023/8/8 9:48:00 --  加个判断 请问怎么加个判断？在姓名里面找到字符 “（实习）”时， dr(dc.name) = 2， 否则就 dr(dc.name) = 1     For Each dr As DataRow In DataTables("考勤表").Select("姓名 is not null")         For i As Integer = 1 To dr.DataTable.DataCols.count-2             dr(dr.DataTable.DataCols(i).name) = Nothing         Next           For Each cdr As DataRow In dt.Select("\',\'+休息+\',\' like \'%," & dr("姓名") & ",%\'")             For i As Integer = 1 To dr.DataTable.DataCols.count-2                 Dim dc = dr.DataTable.DataCols(i)                 If dc.caption = cdate(cdr("日期")).day Then                     dr(dc.name) = 1                 End If             Next         Next     Next

--  作者：有点蓝 --  发布时间：2023/8/8 10:01:00 --   if dr("姓名") like “*（实习）*” dr(dc.name) = 2 else dr(dc.name) = 1 endif