请问怎么加个判断？在姓名里面找到字符 “（实习）”时， 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
加好友 
发短信
Post By：2023/8/8 9:48:00 [显示全部帖子]
