打印凭证号范围

cg1

Dim i As Long
For i = 打印凭证开始号.Value To 打印凭证结束号.Value

Dim vieA As ADOX.View
Dim cat As New ADOX.Catalog
Dim cmdA As ADODB.Command
Set cat.ActiveConnection = CurrentProject.Connection

Set cmdA = cat.Procedures("计件工资单查询").Command

cmdA.CommandText = "select * from 计件工资单 where (field1='" & trim(str(i))& "')"        '如果是字符用这行

cmdA.CommandText = "select * from 计件工资单 where (field1= " & trim(str(i))& ")"     '如果是数字用这行

Set cat.Procedures("计件工资单查询").Command = cmdA
DoCmd.OpenReport "计件工资单", acViewNormal
Next

End Sub

[此贴子已经被作者于2002-10-26 22:13:05编辑过]

cg1

我又修改过了，你自己再看一下

cmdA.CommandText = "select * from 计件工资单 where (field1= " & trim(str(i)) & ")" '如果是数字用这行

[此贴子已经被作者于2002-10-26 22:14:23编辑过]

jhzlzc29

可是：Set cmdA = cat.Procedures("计件工资单查询").Command标黄
ado和adox,我在VBA引用中实在找到到可能是我找错的问题
　请告诉我全称好吗？
　　　　　　　　　　　　　谢谢！