＋设为首页 ＋添加到收藏夹
Set dbBooks = OpenDatabase(ctlData.DatabaseName)
Set rsListData = dbBooks.OpenRecordset("SELECT type, sum(price) as sum FROM dd group by type order by type")
ctlListView.View = lvwReport
ctlData.Visible = False
ctlListView.Sorted = True
For i = 1 To rsListData.Fields.Count - 1
ctlListView.ColumnHeaders.add , "Column" & i, rsListData.Fields(i).Name
Next i
Do While Not rsListData.EOF
Set itemReturned = ctlListView.ListItems.add(, "Item" & rsListData.Fields(0), rsListData.Fields(1))
For i = 2 To rsListData.Fields.Count - 1
itemReturned.SubItems(i - 1) = rsListData.Fields(i) & ""
Next i
rsListData.MoveNext
Loop
结果想出现 type 和 sum 。。。。。但是只是出现了 sum 怎样才能出现type ....
Set dbBooks = OpenDatabase(ctlData.DatabaseName)
Set rsListData = dbBooks.OpenRecordset("SELECT type, sum(price) as sum FROM dd group by type order by type")
ctlListView.View = lvwReport
ctlData.Visible = False
ctlListView.Sorted = True
For i = 1 To rsListData.Fields.Count - 1
ctlListView.ColumnHeaders.add , "Column" & i, rsListData.Fields(i).Name
Next i
Do While Not rsListData.EOF
Set itemReturned = ctlListView.ListItems.add(, "Item" & rsListData.Fields(0), #rsListData.Fields(1))#
For i = 2 To rsListData.Fields.Count - 1
itemReturned.SubItems(i - 1) = rsListData.Fields(i) & ""
Next i
rsListData.MoveNext
Loop
结果想出现 type 和 sum 。。。。。但是只是出现了 sum 怎样才能出现type ....
=======================================
#包括的地方改成rsListData.Fields(0))
就可以了！
详细请见分，哈哈）
http://www.myvc.net/dispbbs.asp?boardID=52&RootID=5144&ID=5144&page=1
======================================
还是能够上传附件、贴图的论坛比较方便，
csdn也能够这样就好了。
这样，比较容易解决问题。
如果大家有说不清楚的问题，可以到www.myvc.net来，
可以支持上传附件和贴图，只是为了方便大家而已
