- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 表中数据转换问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101764)
-- 发布时间：2017/6/6 19:28:00
-- [求助] 表中数据转换问题
此主题相关图片如下：qq截图20170606191925.png
请问老师，如何将上图表中“成员一组”、“成员二组”、“成员三组”数据转移成下图样式。（只转换该月星期六、日的数据）。
此主题相关图片如下：qq截图20170606192005.png
-- 发布时间：2017/6/6 20:37:00
--
表A的DataColChanged事件
Select Case e.DataCol.Name
Case "时间"
If e.DataRow.IsNull("时间") = False Then
If WeekDay(e.DataRow("时间")) = 1
e.DataRow("星期") = "星期天"
Else
e.DataRow("星期") = WeekDayName(WeekDay(e.DataRow("时间")) - 1)
End If
Else
e.DataRow("星期") = Nothing
End If
End Select
命令窗口代码：
Dim t As Table = Tables("表A")
Dim t2 As Table = Tables("表B")
For Each r As Row In t.Rows
Select Case r("星期")
Case "星期六","星期天"
Dim vs As New List(Of String)
For Each c As Col In t.Cols
If c.Name.Contains("组") Then
For Each s As String In r(c.Name).Split(",")
vs.Add(s)
Next
End If
Next
For Each v As String In vs
Dim r2 As Row = t2.AddNew()
r2("时间") = r("时间")
r2("星期") = r("星期")
r2("姓名") = v
Next
End Select
Next
[此贴子已经被作者于2017/6/6 20:43:39编辑过]
-- 发布时间：2017/6/6 21:42:00
--
谢谢老师