![]() |
#2
ZHRXJR2018-11-02 11:38
|
代码和截图如下:
rs.Open "炉料", cnn, 2, 3
rs.MoveFirst
Do While Not rs.EOF
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.TextMatrix(row, 0) = rs.Fields(0)
MsgBox rs.Fields(0)
For i = 1 To N + 2
MSFlexGrid1.TextMatrix(row, i) = Format(rs.Fields(i), "#0.00##")
Next i
row = row + 1
rs.MoveNext
Loop
运行结果如附件图:
只有本站会员才能查看附件,请 登录