自己写的一个程序,总是在执行到“特别标注”那一行的时候正确的记录可以查出,但是却提示
实时错误'9'下标越界,请问如何解决,谢谢!!
Dim cn As ADODB.Connection
Dim sql As String
Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset
Dim cmd As ADODB.Command
Dim c
Dim i As IntegerPrivate Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入单据编号!", vbOKOnly, "金蝶提示"
Else
Set rs1 = New ADODB.Recordset
rs1.CursorLocation = adUseClient
rs1.Properties("Initial Fetch Size") = 2
rs1.Properties("Background Fetch Size") = 4
rs1.Open "select t1.FNumber,t2.FBillNo,sum(t4.Quantity) from MDB_SaleDetail t4 INNER JOIN t_ICItemCore t1 ON t1.FHelpCode = t4.GoodsId INNER JOIN MDB_SaleMaster t3 ON t4.MasterId = t3.Id INNER JOIN ICStockBill t2 ON t2.FInterID = t3.SourceId Where t2.FBillNo like '%" & Text1.Text & "%' Group by t1.FNumber,t2.FBillNo", cn, adOpenStatic, adLockOptimistic, adCmdText
If rs1.RecordCount > 0 Then
Set Dgr_ruku.DataSource = rs1
rs1.Requery
Dgr_ruku.Refresh
'Dgr_ruku.Columns(0).Caption = "扫描单号"
Dgr_ruku.Columns(1).Caption = "物料名称"
'Dgr_ruku.Columns(2).Caption = "仓位"
'Dgr_ruku.Columns(3).Caption = "条码信息"
'Dgr_ruku.Columns(4).Caption = "入库仓库"
特别标注:Dgr_ruku.Columns(5).Caption = "数量"
'Dgr_ruku.Columns(6).Caption = "单据状态"
'Dgr_ruku.Columns(0).Width = 1500
Dgr_ruku.Columns(1).Width = 3500
' Dgr_ruku.Columns(2).Width = 1000
' Dgr_ruku.Columns(3).Width = 2000
' Dgr_ruku.Columns(4).Width = 3000
Dgr_ruku.Columns(5).Width = 1000
' Dgr_ruku.Columns(6).Width = 1000
rs1.Close
End If
End If
End Sub
Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Open ("Provider=SQLOLEDB;Data Source=127.0.0.1;Initial Catalog=AIS20101217083111;User ID=sa;Password=sa;")
' Set rs = New ADODB.Recordset
'Set rs1 = New ADODB.Recordset
' rs.CursorLocation = adUseClient
'rs.Properties("Initial Fetch Size") = 2
'rs.Properties("Background Fetch Size") = 4
'rs.Open "SELECT Id FROM MDB_PurchaseMaster order by Id desc", cn, adOpenStatic, adLockOptimistic, adCmdText
'Do While Not rs.EOF
'If IsNull(rs.Fields(0).Value) = False Then
' cb_ruku.AddItem rs.Fields(0).Value
'End If
' rs.MoveNext
' Loop
End Sub
实时错误'9'下标越界,请问如何解决,谢谢!!
Dim cn As ADODB.Connection
Dim sql As String
Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset
Dim cmd As ADODB.Command
Dim c
Dim i As IntegerPrivate Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入单据编号!", vbOKOnly, "金蝶提示"
Else
Set rs1 = New ADODB.Recordset
rs1.CursorLocation = adUseClient
rs1.Properties("Initial Fetch Size") = 2
rs1.Properties("Background Fetch Size") = 4
rs1.Open "select t1.FNumber,t2.FBillNo,sum(t4.Quantity) from MDB_SaleDetail t4 INNER JOIN t_ICItemCore t1 ON t1.FHelpCode = t4.GoodsId INNER JOIN MDB_SaleMaster t3 ON t4.MasterId = t3.Id INNER JOIN ICStockBill t2 ON t2.FInterID = t3.SourceId Where t2.FBillNo like '%" & Text1.Text & "%' Group by t1.FNumber,t2.FBillNo", cn, adOpenStatic, adLockOptimistic, adCmdText
If rs1.RecordCount > 0 Then
Set Dgr_ruku.DataSource = rs1
rs1.Requery
Dgr_ruku.Refresh
'Dgr_ruku.Columns(0).Caption = "扫描单号"
Dgr_ruku.Columns(1).Caption = "物料名称"
'Dgr_ruku.Columns(2).Caption = "仓位"
'Dgr_ruku.Columns(3).Caption = "条码信息"
'Dgr_ruku.Columns(4).Caption = "入库仓库"
特别标注:Dgr_ruku.Columns(5).Caption = "数量"
'Dgr_ruku.Columns(6).Caption = "单据状态"
'Dgr_ruku.Columns(0).Width = 1500
Dgr_ruku.Columns(1).Width = 3500
' Dgr_ruku.Columns(2).Width = 1000
' Dgr_ruku.Columns(3).Width = 2000
' Dgr_ruku.Columns(4).Width = 3000
Dgr_ruku.Columns(5).Width = 1000
' Dgr_ruku.Columns(6).Width = 1000
rs1.Close
End If
End If
End Sub
Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Open ("Provider=SQLOLEDB;Data Source=127.0.0.1;Initial Catalog=AIS20101217083111;User ID=sa;Password=sa;")
' Set rs = New ADODB.Recordset
'Set rs1 = New ADODB.Recordset
' rs.CursorLocation = adUseClient
'rs.Properties("Initial Fetch Size") = 2
'rs.Properties("Background Fetch Size") = 4
'rs.Open "SELECT Id FROM MDB_PurchaseMaster order by Id desc", cn, adOpenStatic, adLockOptimistic, adCmdText
'Do While Not rs.EOF
'If IsNull(rs.Fields(0).Value) = False Then
' cb_ruku.AddItem rs.Fields(0).Value
'End If
' rs.MoveNext
' Loop
End Sub
解决方案 »
- 如何使用API远程增加局域网内其它电脑的注册表项(如开机启动某程序),可以使用用户名和密码。各位帮帮我,谢谢。
- run-time error '9' subscript out of range
- 怎样实现Windows中记事本或WORD中的撤销和重复功能?
- 关于身份证判断(textbox)
- 我想超频.请抱着 严谨 认真 负责 的态度回答我 谢谢.
- PictureBox控件:已经有图片做背景了,现在我要再在背景上显示“欢迎***”怎么做呢?是要在程序加载窗体时判断用户名显示的。
- 几个简单的问题,在线等
- 有人会吗??????????救命啊!!!!!!!!!
- 动态添加控件数组
- TO SBM 再一此给你 22 分。(一定要发给我的)
- 求VB的Winsock控件,通过UDP协议实现两台机器的聊天进程相互传送数据的代码
- 激活菜单命令
**********************select t1.FNumber,t2.FBillNo,sum(t4.Quantity) from0,1,2打死也出不来 5