DataTables("考勤表").Save() For Each dr As Row In Tables("考勤表").Rows For i As Integer = 1 To 31 dr("A" & i) = Nothing Next Dim sj As Integer = 31-dr("合计") Dim ls As new List(of String) For i As Integer = 1 To sj Dim m= rand.Next(1,31) Do until ls.contains(m) = False m= rand.Next(1,31) Loop ls.add(m) dr("A"&m) = 1 Next Next
加好友 
发短信
Post By：2019/1/21 9:39:00 [显示全部帖子]
