谈情说案国语迅雷下载:数据能查出,为什么不能写入MSHFlexGrid

来源:百度文库 编辑:中科新闻网 时间:2024/05/02 02:09:19
数据库查询没有错误,可是为什么要将数据放入MSHFGSubtotal(MSHFlexGrid)控件时没有显示,以是代码,请高人指点
MSHFGSubtotal.row = 0
MSHFGSubtotal.Cols = 4
MSHFGSubtotal.col = 0
MSHFGSubtotal.Text = Cbofield.Text
MSHFGSubtotal.col = 1
MSHFGSubtotal.Text = Cbofield1.Text
MSHFGSubtotal.col = 2
MSHFGSubtotal.Text = "个数"
MSHFGSubtotal.col = 3
MSHFGSubtotal.Text = "总量"

'MSHFGSubtotal.col = 0
MSHFGSubtotal.Rows = OraDynaset.RecordCount + 1
Dim aa As Integer
For aa = 0 To OraDynaset.RecordCount - 1
'MSHFGSubtotal.row = aa + 1
MSHFGSubtotal.TextMatrix(aa + 1, 0) = OraDynaset.fields(0).Value
MSHFGSubtotal.TextMatrix(aa + 1, 1) = OraDynaset.fields(1).Value
OraDynaset.MoveNext

Next aa

我这边试了,将OraDynaset.RecordCount、OraDynaset.fields(0).Value 、OraDynaset.fields(1).Value换成常量值后显示是正常的,请跟踪一下你的上述三个值,估计查询有问题,没有返回值。