您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

数据多行显示

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

数据多行显示[已结贴,结贴人:square112]

发表于：2007-01-25 10:20:36 楼主

private sub cmdlogin_click（)
dim rs_update as new adodb.recordset
dim sql as string
dim i as string
if trim（txtcar.text) = " " then
msgbox "车牌号不能为空！ ", vbokonly + vbexclamation, " "
txtcar.setfocus
exit sub
else
sql = "select * from information "
rs_update.open sql, conn, adopenkeyset, adlockpessimistic
if trim（rs_update.fields（1)) = trim（txtcar.text) then

msflexgrid1.rows = 8
msflexgrid1.cols = rs_update.recordcount + 4
'-------------------------------------------------------------------
msflexgrid1.row = 0
msflexgrid1.col = 0
msflexgrid1.text = "车辆编号 "
msflexgrid1.col = 1
msflexgrid1.text = "车牌号 "
msflexgrid1.col = 2
msflexgrid1.text = "车主手机号 "
msflexgrid1.col = 3
msflexgrid1.text = "车辆类别 "
msflexgrid1.col = 4
msflexgrid1.text = "入场时间 "

if rs_update.eof = false then
rs_update.movefirst
do while not rs_update.eof
msflexgrid1.col = msflexgrid1.row
msflexgrid1.row = 1
msflexgrid1.text = rs_update（0)
msflexgrid1.row = 1

msflexgrid1.col = msflexgrid1.row
msflexgrid1.row = 1
msflexgrid1.text = rs_update（1)
msflexgrid1.row = 1

msflexgrid1.col = msflexgrid1.row + 1
msflexgrid1.row = 1
msflexgrid1.text = rs_update（2)
msflexgrid1.row = 1

msflexgrid1.col = msflexgrid1.row + 2
msflexgrid1.row = 1
msflexgrid1.text = rs_update（3)
msflexgrid1.row = 1

msflexgrid1.col = msflexgrid1.row + 3
msflexgrid1.row = 1
msflexgrid1.text = rs_update（4)
msflexgrid1.row = 1

rs_update.movenext
loop
end if
else
msgbox "该车辆还没有进入,查无此车 ", vbokonly + vbexclamation, " "
txtcar.text = " "
exit sub
end if
rs_update.close
end if
end sub

数据怎么在一行一条显示呀.而不是很多条数据在一行显示??

发表于：2007-01-25 10:31:231楼得分:0

msflexgrid1.row = msflexgrid1.row + 1

发表于：2007-01-25 10:33:012楼得分:0

加在哪个地方

发表于：2007-01-25 10:43:303楼得分:0

msflexgrid1.row = 1
do while not rs_update.eof
msflexgrid1.col = 1
msflexgrid1.text = rs_update（0)

msflexgrid1.col =2
msflexgrid1.text = rs_update（1)

.................

msflexgrid1.row = msflexgrid1.row+ 1

rs_update.movenext
loop

*****************************************************************************
欢迎使用csdn论坛专用阅读器 : csdn reader（附全部源代码)

最新版本：20070119

http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html

发表于：2007-01-25 11:05:014楼得分:0

显示出来不对呀!不对称

发表于：2007-01-25 11:16:365楼得分:10

我这只是一个例子，具体你自己要改呀

msflexgrid1.col = 0 '第几列
msflexgrid1.text = rs_update（0) '对应字段

其他资讯