可以在程序中给Data Enviroment中的命令赋记录
如:DataEnviroment.rscommand1.datasource=rs
可是怎么给命令下的子命令动态赋值呢
如:DataEnviroment.rscommand1.datasource=rs
可是怎么给命令下的子命令动态赋值呢
解决方案 »
- 求助!!!!VB打包问题!!!!!
- 某字段中数据含有一个‘/’ 有的含有两个‘/’,如何 将含有一个的挑出?
- 请问:开发好数据库软件后,如何隐藏数据库呢?
- 查错,很简单的问题,我头都大了,改了几次都不行,吐血竟然卡在这里
- 小弟也想和大侠换c#程序学习
- 一个问题,请各位帮忙
- 哪里有 Advanced Visual Basic 6(高级Visual Basic 编程) 下载???
- 菜鸟提问:在VB6中我怎么找不到flash控件呢?
- 如何将一个指定文件拷贝并粘贴到另一个文件夹中?
- 一件很奇怪的事情,大家分析一下!
- 急: 关于实时错误"94" 无效使用"null"的问题
- 光盘自动运行程序方面的问题!!!!!!!?????????
Dim cmd As DERuntimeObjects.Commands
Dim i As Long
Set cmd = DataEnvironment1.Commands
For i = 1 To cmd.Count
'注:子命令是不会在Commands集合中的!
if需要修改的父命令 then cmd(i).CommandText=要改的ComandText
Next i
如下是父命令Command1的CommandText示例,其中Command2为其子命令,当然也可Append多个子命令,Relate连接两个表的主外键:
SHAPE {SELECT * FROM "dbo"."TBLITEM"} AS Command1 APPEND ({SELECT * FROM "dbo"."INDEX1"} AS Command2 RELATE 'ITM_SN' TO 'IDX_ITEMSN') AS Command2
SHAPE {SELECT * FROM 主表 } AS 主命令
APPEND ({SELECT * FROM 子表} AS 子命令 RELATE 主表字段 TO 子表外键) AS 子命令
APPEND ({SELECT * FROM 子表2} AS 子命令2 RELATE 主表字段 TO 子表外键) AS 子命令2
......