- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教高手 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=21519)
-- 发布时间：2012/7/15 21:20:00
-- 请教高手
此主题相关图片如下：截图03.jpg
-- 发布时间：2012/7/15 22:23:00
--
Dim sql As String
For Each c As Col In Tables("表B").Cols
If c.name <> "姓名" Then
sql+ = " Union Select 姓名,\'" & c.name & "\' As 课程," & c.name & " As 分数 From {表B}"
End If
Next
Output.Show(sql.Substring(7))
-- 发布时间：2012/7/16 0:10:00
--
谢了！