SHAPE指令急

festley 2001-12-13 10:26:46
在VB中,如何写SHAPE指令,它有COMPUTE命令,如何在DATAREPORT用这SHAPE指令?
有详细的资料,请说或TO:hongley@peoplemail.com.cn
...全文
65 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
playyuer 2001-12-14
  • 打赏
  • 举报
回复
关于数据构形的问题
http://www.csdn.net/oldexpert/TopicView.asp?id=121270&table=200101
cuiyxy 2001-12-14
  • 打赏
  • 举报
回复
看一看这个帮助
C:\WINNT\Help\ADO210.CHM
adafirst3219 2001-12-14
  • 打赏
  • 举报
回复
市面上有一本《Visual Basic 6.0 数据库开发指南》,
richard_1 2001-12-14
  • 打赏
  • 举报
回复
例子:
Sub datashape()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim rsChapter As Variant

cnn.Provider = "MSDataShape"
cnn.Open "Data Provider=MSDASQL;" & _
"DSN=vfox;uid=sa;pwd=vfox;database=pubs”
'步骤 1
rst.StayInSync = FALSE
rst.Open "SHAPE {select * from authors}
APPEND ({select * from titleauthor} AS chapter
RELATE au_id TO au_id)",
cnn
'步骤 2
While Not rst.EOF
Debug.Print rst("au_fname"), rst("au_lname"),
rst("state"), rst("au_id")
'步骤 3
Set rsChapter = rst("chapter")
'步骤 4
While Not rsChapter.EOF
Debug.Print rsChapter(0), rsChapter(1),
rsChapter(2), rsChapter(3)
rsChapter.MoveNext
Wend
rst.MoveNext
Wend
End Sub

7,755

社区成员

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

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