📄 amobjcellsetexample.htm
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<HTML dir=ltr>
<HEAD>
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=GB_2312-80">
<title>Cellset 范例</title>
<style>@import url(msdn_ie4.css);</style>
</HEAD>
<BODY>
<h2><a name="amobjcellsetexample"></a>Cellset 范例</h2>
<p><a href="dir.htm">目录</a></p>
<p>
如下代码演示如何打开 <a href="amobjcellset.htm">Cellset</a>、打印每个位置的 <a href="amcolmembers.htm">Members</a> 的标题和打印 <a href="amobjcell.htm">Cell</a> 的格式化值。该代码假定在名为 Servername 的 OLAP 服务器上存在名为 Bobs Video Store 的数据源。</p>
<pre>Dim cat As New ADOMD.Catalog
Dim cst As New ADOMD.Cellset
Dim axs As ADOMD.Axis
Dim I As Integer
Dim j As Integer
cat.ActiveConnection = "Data Source=Servername;" + _
"Initial Catalog=Bobs Video Store;Provider=msolap;"
cst.Source = "SELECT [Product Category].MEMBERS ON ROWS," + _
"[Store State].MEMBERS ON COLUMNS" + _
"FROM [Bobs Video Store]" + _
"WHERE ([Quantity])"
Set cst.ActiveConnection = cat.ActiveConnection
cst.Open
For i = 0 To cst.Axes(0).Positions.Count - 1
Debug.Print cst.Axes(0).Positions(i).Members(0).Caption & " ";
Set axs = cst.Axes(1)
For j = 0 To axs.Positions.Count - 1
Debug.Print " " & axs.Positions(j).Members(0).Caption & _
" " & cst(i, j).FormattedValue
Next
Next
cst.Close</pre>
<center> <A HREF="http://www.51windows.Net">www.51windows.Net</A></center>
<SCRIPT LANGUAGE="JavaScript" src="/log/sitelog2.asp"></SCRIPT>
<script src="script.js"></script></BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -