mshflexgird指定列填充数据的有关问题

2012-12-17

mshflexgird指定列填充数据的问题想实现在表格中指定列显示出相应数据。表格是分两列的，第一列显示29个，第

mshflexgird指定列填充数据的问题
想实现在表格中指定列显示出相应数据。

表格是分两列的，第一列显示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

[解决办法]
你的描述和代码让人很难理解，不知道你要干什么
.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

[解决办法]
是这样的，
数据库中有学生姓名，成绩1，成绩2...等字段

想在mahflexgrid中实现下面这样的表格

姓名  成绩1  成绩2   姓名  成绩1  成绩2

第一列的姓名显示29条记录，后面姓名列显示其他的记录（记录不多，不超过50个）

该如何用代码实现！
[解决办法]
我用以下代码

    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

请教一下这种循环语句应该这样写才能实现我想要的结果呢？
[解决办法]
    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还在测试中！
[解决办法]
该回复于2012-12-08 14:13:03被管理员删除

热点排行

Bad Request.

VB

mshflexgird指定列填充数据的有关问题