Question

vb读取access数据库只能显示一行记录

If rmrec.RecordCount > 0 Then
rmrec.MoveFirst
MSFlexGrid1.Redraw = False
Do while not rmrec.BOF
MSFlexGrid1.row = MSFlexGrid1.row + 1
MSFlexGrid1.TextMatrix(rows, 1) = rmrec!下单日期
MSFlexGrid1.TextMatrix(rows, 2) = rmrec!客户名称
MSFlexGrid1.TextMatrix(rows, 3) = rmrec!订单号码
MSFlexGrid1.TextMatrix(rows, 4) = rmrec!木饰线
MSFlexGrid1.TextMatrix(rows, 5) = rmrec!踢脚线
MSFlexGrid1.TextMatrix(rows, 6) = rmrec!五金
MSFlexGrid1.TextMatrix(rows, 7) = rmrec!脚座
MSFlexGrid1.TextMatrix(rows, 8) = rmrec!门框
MSFlexGrid1.TextMatrix(rows, 9) = rmrec!门扇
MSFlexGrid1.TextMatrix(rows, 10) = rmrec!门套
MSFlexGrid1.TextMatrix(rows, 11) = rmrec!样品
MSFlexGrid1.TextMatrix(rows, 12) = rmrec!柜门
MSFlexGrid1.TextMatrix(rows, 13) = rmrec!饰面板
MSFlexGrid1.TextMatrix(rows, 14) = rmrec!安装费
MSFlexGrid1.TextMatrix(rows, 15) = rmrec!所属区域
MSFlexGrid1.TextMatrix(rows, 16) = rmrec!生产工厂
MSFlexGrid1.TextMatrix(rows, 17) = rmrec!进场时间
MSFlexGrid1.TextMatrix(rows, 18) = rmrec!出货时间
MSFlexGrid1.TextMatrix(rows, 19) = rmrec!到货时间
MSFlexGrid1.TextMatrix(rows, 20) = rmrec!备注
rows = rows + 1
rmrec.MoveNext
Loop
MSFlexGrid1.Redraw = True
MSFlexGrid1.Refresh

End If

高手看看什么原因

Answer 1

bof->eof