怪物!难道是BUG?

[nik_Amis]

我写的一个数据库程序,用到了MSHFlexGrid
一开始好好的,后来我把所有我机器上能找到的GRID控件都加到工程里
做比较,然后都删掉了

可是发现显示一张表里所有的记录时(7,8条),我的MSHFlexGrid 竟然只显示一行数据
可是记录集里面,是有数据的
我用ListView却可以都显示出来

谁知道是怎么回事?

[nik_Amis]

我一直用的是Set oMSHFlexGrid.Recordset=oRS

一直都是这样用的,一直都非常正常
可现在不管查询结果里有多少条数据,Grid只能显示一条

并且,我的另外一个程序也用到了HFlexGrid但是那个程序显示的很正常

谁知道?....

另外,这个控件有时候很怪的,最后一列不显示数据(显示了字段名,但是该字段一条记录也没有,数据库里面是有数据的,用其他方式也能把该字段显示出来),其他列很正常,我只碰到过一次

[dhongtao]

MSHFlexGrid只能添加当前记录行,添加一行后,再使用 rs.movenext 一道下一条记录再添加记录.设置MSHFlexGrid.rows=rs.recordcount+1,可以使用循环语句进行添加记录.

[xiao_xiao_xiao]

MSHFlexGrid的行设置，.rows=rs.recordsetcount
嘿嘿，
不好意思，我不是高手，随便说说，算是帮你up了。

[watt]

，.rows=rs.recordsetcount+1

[mfkzj]

MSHFlexGrid需要你一行一行的添加数据

[wzsswz]

Private Sub over_view(reg As Integer)
bill_reg = False
T_count.Text = "总记录数：" + "0"
Adc_over.RecordSource = "exec accountover_sql 'over_send_reg0'"

If sendreg = 20 Then
Select Case reg
Case 0
Adc_over.RecordSource = "exec accountover_sql 'over_send_reg1'"
Case 1
Adc_over.RecordSource = "exec accountover_sql 'over_send_reg1_sf'"
Case 2
Adc_over.RecordSource = "exec accountover_sql 'over_send_reg1_yf'"
End Select
ElseIf sendreg = 10 Then
Select Case reg
Case 0
Adc_over.RecordSource = "exec accountover_sql 'over_send_reg0'"
Case 1
Adc_over.RecordSource = "exec accountover_sql 'over_send_reg0_sf'"
Case 2
Adc_over.RecordSource = "exec accountover_sql 'over_send_reg0_yf'"
End Select
End If
Adc_over.Refresh
Dg_query.Refresh
If Adc_over.Recordset.RecordCount >= 1 Then
Dg_query.FixedRows = 0
T_count.Text = "总记录数：" + CStr(Adc_over.Recordset.RecordCount)
End If
set_caption
Dg_query.ColWidth(10) = 1
Dg_query.ColWidth(11) = 1
Dg_query.ColWidth(12) = 1
Dg_query.ColHeaderCaption(0, 9) = "开单日期"
T_count.Visible = True
sendreg = 0
End Sub

[Zhang_1978]

Do While Not Rs.EOF
MSFGrid.AddItem Chr(9) & Rs!c1 & Chr(9) & Rs!C2
Rs.MoveNext

Loop

[liad]

绑定
Set MSHFlexGrid2.DataSource = rs1

[nik_Amis]

难道没有人用过MSHFlexGrid的Recordset属性??