这个报表如何做,帮帮看看。

PBbaby 2001-09-21 02:08:09
我有两个table A, B

Table A
prodCode Lengh Width ..
_________________________________________
P1
P2
P3
P4
....

Table B
ProdCode Accessories Accessories_quantity
______________________________________________
P1 A1 2
P1 A2 3
P1 A3 4
P2 A1 5
P2 A2 6
.....


我想得到的报表是这样

ProdCode Lengh Width A1 A2 A3
______________________________________________
P1 2 3 4
P2 5 6
.....

我该如何作? Thanks
我用的是 Crystal Report 。。。
...全文
137 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
PBbaby 2001-09-24
  • 打赏
  • 举报
回复
up
PBbaby 2001-09-24
  • 打赏
  • 举报
回复
救命呀
能不能说详细些
Sean_Jhh 2001-09-21
  • 打赏
  • 举报
回复
打开两个表,用程序的方法判断,可能更容易理解和调试,就是笨了点。
siscowet 2001-09-21
  • 打赏
  • 举报
回复
这是一个竖表变横表的实例
sql Server 中用存储过程实现
Access 中用transform的命令实现
msdn里的一个例子

Sub TransformX1()

Dim dbs As Database
Dim strSQL As String
Dim qdfTRANSFORM As QueryDef

strSQL = "PARAMETERS prmYear SHORT; TRANSFORM " _
& "Count(OrderID) " _
& "SELECT FirstName & "" "" & LastName AS " _
& "FullName FROM Employees INNER JOIN Orders " _
& "ON Employees.EmployeeID = " _
& "Orders.EmployeeID WHERE DatePart " _
& "(""yyyy"", OrderDate) = [prmYear] "

strSQL = strSQL & "GROUP BY FirstName & " _
& """ "" & LastName " _
& "ORDER BY FirstName & "" "" & LastName " _
& "PIVOT DatePart(""q"", OrderDate)"

' Modify this line to include the path to Northwind
' on your computer.
Set dbs = OpenDatabase("Northwind.mdb")

Set qdfTRANSFORM = dbs.CreateQueryDef _
("", strSQL)

SQLTRANSFORMOutput qdfTRANSFORM, 1994

dbs.Close

End Sub

PBbaby 2001-09-21
  • 打赏
  • 举报
回复
如果不用excel 可以吗
Jneu 2001-09-21
  • 打赏
  • 举报
回复
用EXCEL很方便。

809

社区成员

发帖
与我相关
我的任务
社区描述
VB 多媒体
社区管理员
  • 多媒体
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧