超级郁闷中，为什么浏览的下一张竟然是最后一张？

[tmd2008]

超级郁闷中，为什么浏览的下一张竟然是最后一张？偶分数没有了，你就将就点吧！

下面是我的代码，大家帮我看看。数据库是ACCESS的，
On Error Resume Next
Stpath = "d:\dovro\sales.mdb"
CNN.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath
SQL = "select 发货单号 from sale where 发货单号<'" & TextBox1.Text & "' order by 发货单号"
RST.Open SQL, CNN, adOpenKeyset, adLockOptimistic
RST.MoveLast '最后一个记录
TextBox1.Text = RST.Fields(0)
Set RST = Nothing
CNN.Close

On Error Resume Next
Dim CNN As New ADODB.Connection
Dim RST As New ADODB.Recordset
Stpath = "d:\dovro\sales.mdb"
CNN.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath
SQl = "select * from sale where 发货单号='" & txtfhtzd.Text & "'"
RST.Open SQl, CNN, adOpenKeyset, adLockOptimistic
Do Until RST.EOF
j = 1
Text4.Text = DateSerial(RST("年"), RST("月"), RST("日"))
txtkhmc.Text = RST("客户名称")
Text5.Text = RST("业务员")
With MSHFlexGrid1
.TextMatrix(j, 1) = RST("产品名称")
.TextMatrix(j, 2) = RST("规格")
.TextMatrix(j, 3) = RST("单位")
.TextMatrix(j, 4) = Format(RST("数量"), "#,##0.00")
.TextMatrix(j, 5) = Format(RST("单价"), "#,##0.00")
.TextMatrix(j, 6) = Format(RST("金额"), "#,##0.00")
End With
txtshr.Text = RST("收货人")
Text1.Text = RST("详细地址")
Text2.Text = RST("备注")
Labczy.Caption = RST("制单人")
RST.MoveNext
j = j + 1
Loop
Labsz.Caption = Format(GetALLjeSum(MSHFlexGrid1.ColData(Jcount)), "#,##0.00")
Labdx.Caption = AtoC(Labsz.Caption)
RST.Close

[tmd2008]

那现在该怎么办？没有条件肯定是不行的，这句话该如何说？

[zq972]

On Error Resume Next
Dim CNN As New ADODB.Connection
Dim RST As New ADODB.Recordset
Stpath = "d:\dovro\sales.mdb"
CNN.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath
SQl = "select * from sale where 发货单号='" & txtfhtzd.Text & "'"
RST.Open SQl, CNN, adOpenKeyset, adLockOptimistic
j=0
Do Until NOT RST.EOF
j = j+1
Text4.Text = DateSerial(RST("年"), RST("月"), RST("日"))
txtkhmc.Text = RST("客户名称")
Text5.Text = RST("业务员")
With MSHFlexGrid1
.TextMatrix(j, 1) = RST("产品名称")
.TextMatrix(j, 2) = RST("规格")
.TextMatrix(j, 3) = RST("单位")
.TextMatrix(j, 4) = Format(RST("数量"), "#,##0.00")
.TextMatrix(j, 5) = Format(RST("单价"), "#,##0.00")
.TextMatrix(j, 6) = Format(RST("金额"), "#,##0.00")
End With
txtshr.Text = RST("收货人")
Text1.Text = RST("详细地址")
Text2.Text = RST("备注")
Labczy.Caption = RST("制单人")
RST.MoveNext
Loop
Labsz.Caption = Format(GetALLjeSum(MSHFlexGrid1.ColData(Jcount)), "#,##0.00")
Labdx.Caption = AtoC(Labsz.Caption)
RST.Close

[doxob]

Do Until RST.EOF
这行代码就是要一直循环到最后一条记录，那么你的文本框自然是最后一条记录了。