mshflexgird指定列填充数据的问题

[Lukeskywalker]

想实现在表格中指定列显示出相应数据。

表格是分两列的，第一列显示29个，第二列显示剩下的数据，应该怎样实现啊！

Do While Not rs.EOF
      For i = 0 To 28
        .TextMatrix(i, 0) = rs.Fields(2)
        .TextMatrix(i, 0) = rs.Fields(2)
      Next      
      '如何在其他列填充剩下的数据
      rs.MoveNext
    Loop

[Lukeskywalker]

我用以下代码 For i = 0 To 28 Do While Not rs.EOF .TextMatrix(i, 0) = rs(2) rs.MoveNext Loop Next 只能在第一列显示出最后一条记录！ 另外一处用printer写的，可以显示出所有记录，但Y坐标无法调成。 For i = 0 To 29 Printer.FontSize = 10 Printer.CurrentY = 3000 + 280 * i - 70 Do While Not rs.EOF Printer.CurrentX = 6650 Printer.Print rs(2) rs.MoveNext Loop Next 请教一下这种循环语句应该这样写才能实现我想要的结果呢？

[Lukeskywalker]

For i = 0 To 28 Do While Not rs.EOF .TextMatrix(i, 0) = rs(2) rs.MoveNext Loop Next 我修改了一下，可以了！ For i = 0 To 28 Do While Not rs.EOF .TextMatrix(i, 0) = rs(2) rs.MoveNext exit do Loop Next 另一个printer还在测试中！

[twohorses]

你的描述和代码让人很难理解，不知道你要干什么 .TextMatrix(i, 0) = rs.Fields(2) .TextMatrix(i, 0) = rs.Fields(2) 为什么要赋2次值 ？ 是这个意思吗？ dim flag as boolean dim j Do While Not rs.EOF if not flag then For i = 0 To 28 .TextMatrix(i, 0) = rs.Fields(2) Next flag=true rs.MoveNext endif '如何在其他列填充剩下的数据 .TextMatrix(j, 1) = rs.Fields(2) j=j+1 rs.MoveNext Loop

[Lukeskywalker]

是这样的， 数据库中有学生姓名，成绩1，成绩2...等字段 想在mahflexgrid中实现下面这样的表格 姓名 成绩1 成绩2 姓名 成绩1 成绩2 第一列的姓名显示29条记录，后面姓名列显示其他的记录（记录不多，不超过50个） 该如何用代码实现！