rs.Open strSQL, Conn, 1, 3
Do While Not rs.EOF
MSHFlexGrid1.Cols = rs.Fields.Count
For i = 0 To rs.Fields.Count - 1
MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Rows, i) = rs.Fields(i).Value
Next i
MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1
rs.MoveNext '
Loop
MSHFLEXGRID下标越限
答案:2 悬赏:30
解决时间 2021-04-09 01:17
- 提问者网友：单纯说谎家
- 2021-04-08 15:45
最佳答案
- 二级知识专家网友：一场云烟
- 2021-04-08 16:56
MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Rows, i) = rs.Fields(i).Value
这里的MSHFlexGrid1.Rows包括了表头行，改成MSHFlexGrid1.Rows-1就可以了
这里的MSHFlexGrid1.Rows包括了表头行，改成MSHFlexGrid1.Rows-1就可以了
全部回答
- 1楼网友：最后战士
- 2021-04-08 18:23
1.mshflexgrid2.cols是否<=6?
2.请查adodc2.refresh后的recordcount,eof<>true?
你可以写成这样试试
adodc2.refresh
if ( adodc2.recordset.fields(0).eof==false)
mshflexgrid2.textmatrix(i, 6) = adodc2.recordset.fields(0).value
end if
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯