我这样使用msflexgrid妥不妥? 效率是不太高,每次循环都要执行: Grid1.Rows = Grid1.Rows + 1 Grid1.Row = Grid1.Row + 1 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Set Grid1.DataSource=rs速度最快到http://expert.csdn.net/Expert/topic/1432/1432990.xml?temp=.9553034帮我骂那个煞笔 rs.open……rs.movelast'为了取得准确的记录数rs.movefirst for i=0 to rs.recordcount-1 Grid1.TextMatrix(Grid1.Row, 0) = Trim(rs.Fields("项目")) Grid1.TextMatrix(Grid1.Row, 1) = Str(rs.Fields("余额")) Grid1.TextMatrix(Grid1.Row, 2) = Str(rs.Fields("比年初")) Grid1.TextMatrix(Grid1.Row, 3) = Str(rs.Fields("比同期")) Grid1.TextMatrix(Grid1.Row, 4) = Str(rs.Fields("比上月")) Grid1.TextMatrix(Grid1.Row, 5) = Str(rs.Fields("累放")) Grid1.TextMatrix(Grid1.Row, 6) = Str(rs.Fields("累收")) Grid1.Rows = Grid1.Rows + 1 Grid1.Row = Grid1.Row + 1 rs.MoveNext next i for i=0 to rs.recordcount-1 For j=0 to rs.Fields.Count -1 Grid1.TextMatrix(Grid1.Row, j) = Trim(rs.Fields("j")) Next j Grid1.Rows = Grid1.Rows + 1 Grid1.Row = Grid1.Row + 1 rs.MoveNext next i 也可以用MSHFLEXGRID,用ADO代码进行绑定 对象关闭时不允许操作 missing: microsoft activex plugin是什么意思? 急啊!!!!!! 女兒剛出生,求個名字,頂者都有分 怎么判断窗体失去焦点了? 下面的append语句有什么问题呢 请问在那里下载微软程序员手册?(清华出版的)谢谢!!!!!! 请问 如何实现 “保存“功能 触发器,实时更新库存 vba出力bat和txt,在进行读取 程序员考试 有没有歌厅管理系统的源程序,有者必送100分!!!!!!!!!!!!
速度最快
到
http://expert.csdn.net/Expert/topic/1432/1432990.xml?temp=.9553034
帮我骂那个煞笔
rs.movelast'为了取得准确的记录数
rs.movefirst
for i=0 to rs.recordcount-1
Grid1.TextMatrix(Grid1.Row, 0) = Trim(rs.Fields("项目"))
Grid1.TextMatrix(Grid1.Row, 1) = Str(rs.Fields("余额"))
Grid1.TextMatrix(Grid1.Row, 2) = Str(rs.Fields("比年初"))
Grid1.TextMatrix(Grid1.Row, 3) = Str(rs.Fields("比同期"))
Grid1.TextMatrix(Grid1.Row, 4) = Str(rs.Fields("比上月"))
Grid1.TextMatrix(Grid1.Row, 5) = Str(rs.Fields("累放"))
Grid1.TextMatrix(Grid1.Row, 6) = Str(rs.Fields("累收"))
Grid1.Rows = Grid1.Rows + 1
Grid1.Row = Grid1.Row + 1
rs.MoveNext
next i
for i=0 to rs.recordcount-1
For j=0 to rs.Fields.Count -1
Grid1.TextMatrix(Grid1.Row, j) = Trim(rs.Fields("j"))
Next j
Grid1.Rows = Grid1.Rows + 1
Grid1.Row = Grid1.Row + 1
rs.MoveNext next i