[浏览完整版]
标题：[求助]狐狸老爹，表已上传
1楼
shipangzi 发表于：2011/9/4 16:04:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:求统计办法.table |
2楼
don 发表于：2011/9/4 22:07:00| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:求统计办法.table |
3楼
shipangzi 发表于：2011/9/5 14:03:00非常感谢don
我想在窗口下实现上述功能
此主题相关图片如下：360截图20110907140559531.jpg
4楼
紙上不談兵 发表于：2011/9/5 14:58:005楼
狐狸爸爸 发表于：2011/9/5 15:20:006楼
紙上不談兵 发表于：2011/9/5 15:46:00俺昨晚将下列If ...End 中间两条倒转来,结果死活死活的,不干活!累俺纳闷了半天.
If dr1(s2) =True Then
dr(format(CDate(s1),"M月_d日")) =Left(s2,1)
Exit For
End If
7楼
shipangzi 发表于：2011/9/5 16:08:00呵呵，看来本菜鸟给大家添了不少麻烦。不过，老爹做的表效果不如DON的，没实现单人单行。
另外，"谈兵"朋友麻烦教教我怎么讲DON的表填到窗口里。
8楼
狐狸爸爸 发表于：2011/9/5 16:12:009楼
紙上不談兵 发表于：2011/9/5 16:14:00在窗口中插入一个SQL型Table:
Dim b As New SQLGroupTableBuilder("统计表","考勤表")
b.Groups.AddDef("日期",DateGroupEnum.Year,"年")
b.Groups.AddDef("班组")
b.Groups.AddDef("班序")
b.Groups.AddDef("姓名")
b.Totals.AddDef("白班")
Dim t As Table = Tables(e.form.name & "_Table1")
t.DataSource=b.BuildDataSource()
t.StopRedraw
t.Cols.Remove("白班")
Dim s,s1,s2,Ls As String
Ls = DataTables("考勤表").GetComboListString("日期","姓名 is not null","日期")
Dim Ts As String()={"白班","二班","三班","公休","事假","婚假","病假","丧假","旷工"}
With t.DataTable.DataCols
For Each s1 In Ls.split("|")
If .Contains(format(CDate(s1),"M月_d日"))=False Then
.Add(format(CDate(s1),"M月_d日"),Gettype(String),3)
End If
Next
End With
Dim dr,dr1 As DataRow
For Each dr In t.DataTable.DataRows
s = "班组= '" & dr("班组") & "'and 班序= '" & dr("班序") & "'and 姓名= '" & dr("姓名")
For Each s1 In Ls.split("|")
dr1= DataTables("考勤表").Find(s & " 'and 日期 = #" & CDate(s1) & "#")
If dr1 IsNot Nothing Then
For Each s2 In Ts
If dr1(s2) =True Then
dr(format(CDate(s1),"M月_d日")) =Left(s2,1)
Exit For
End If
Next
End If
Next
Next
t.AutoSizeCols(10)
t.ResumeRedraw
10楼
shipangzi 发表于：2011/9/5 16:16:00老爹怎么能把这两个表弄得窗口里也能运行