以下是引用ybil在2011-5-23 8:24:00的发言:
引用狐狸爸爸 011-5-22 11:31:40的发言:
呵呵,还是你这段厉害,不过我的通用性强点,不管多少个科目,科目名称怎样,都不需要改代码。
嘻嘻,学习6楼的方法,来个动态通用的:
Dim s1,s2 As String
For Each s1 In DataTables("成绩库").GetUniqueValues("","课程")
s2 = s2 & ",max(iif( 课程 = '" & s1 &"',分数 , 0)) AS " & s1
Next
s2 = "SELECT 姓名 " & s2 & " FROM {成绩库} GROUP BY 姓名"
Tables("窗口1_Table1").Fill(s2,True)
[此贴子已经被作者于2011-5-23 8:31:32编辑过]
呵呵,佩服。
![dvubb 图片点击可在新窗口打开查看](images/emot/em60.gif)