就输入了几行数据
目前的代码是，
点击生成，从表中读取数据（条件省略）；
点击统计，计算每个员工姓名出现的次数，记作外勤数（已经做好）。
现在的问题是：可能当天一个员工会出现在好几个任务中，就会记作多次出勤，黑心老板说每天只能记作一次外勤
就是每天，每个人最多只能计1次外勤。水平有限……想不出了
代码在窗口的2个按钮里，大家帮忙看看~~谢谢了~~
Dim s,s1 As String
Dim n As Integer
Dim ls As New List(of String)
Dim dt As DataTable =DataTables("考勤_Table1")
For Each dr As DataRow In dt.Select("参与员工 Is Not null")
For Each s In dr("参与员工").split(",")
If Ls.Contains(s)= False Then
Ls.Add(s)
End If
Next
Next
Dim t As Table =Tables("考勤")
t.StopRedraw
t.DataTable.DataRows.Clear
For Each s In ls
s1 = "参与员工 like '*" & s & "*'"
MessageBox.Show(s1)
Return
n =dt.Compute("count(参与员工)",s1)
Dim r As Row =t.addnew
r("姓名") = s
r("次数") = n
Next
t.ResumeRedraw
[此贴子已经被作者于2012-3-30 9:49:51编辑过]
加好友 
发短信
Post By：2012/3/30 9:50:00 [显示全部帖子]
