学生信息管理系统毕业论文和原代码 第72页

.TextMatrix(1, 0) = "考试编号"

.TextMatrix(1, 1) = "学号"

.TextMatrix(1, 2) = "姓名"

.TextMatrix(1, 3) = "班号"

.TextMatrix(1, 4) = "课程名称"

.TextMatrix(1, 5) = "分数"

Do While Not mrc.EOF

.Rows = .Rows + 1

.CellAlignment = 4

.TextMatrix(.Rows - 1, 0) = mrc.Fields(0)

.TextMatrix(.Rows - 1, 1) = mrc.Fields(1)

.TextMatrix(.Rows - 1, 2) = mrc.Fields(2)

.TextMatrix(.Rows - 1, 3) = mrc.Fields(3)

.TextMatrix(.Rows - 1, 4) = mrc.Fields(4)

.TextMatrix(.Rows - 1, 5) = mrc.Fields(5)

mrc.MoveNext

Loop

End With

mrc.Close

End Sub

Private Sub Form_Load()

With myflexgrid

.CellAlignment = 4

.TextMatrix(1, 0) = "考试编号"

.TextMatrix(1, 1) = "学号"

.TextMatrix(1, 2) = "姓名"

.TextMatrix(1, 3) = "班号"

.TextMatrix(1, 4) = "课程名称"

.TextMatrix(1, 5) = "分数"

End With

End Sub

........................................................................................................

 << 上一页  [71] [72]