请问“.Rows=.Rows+1”为什么放在“do while.......loop”外面啊。Private Sub ShowData()
Dim j As Integer
Dim i As Integer
Dim MsgText As String
Set mrc = ExecuteSQL(txtSQL, MsgText)
With msgList
.Rows = 1
.Rows = .Rows + 1
Do While Not mrc.EOF
For i = 1 To mrc.Fields.Count
If Not IsNull(Trim(mrc.Fields(i - 1))) Then
Select Case mrc.Fields(i - 1).Type
Case adDBDate
.TextMatrix(.Rows - 1, i) = Format(mrc.Fields(i - 1) & "", "yyyy - mm - dd")
End Select
End If
Next i
mrc.MoveNext
Loop
End WithEnd Sub
Dim j As Integer
Dim i As Integer
Dim MsgText As String
Set mrc = ExecuteSQL(txtSQL, MsgText)
With msgList
.Rows = 1
.Rows = .Rows + 1
Do While Not mrc.EOF
For i = 1 To mrc.Fields.Count
If Not IsNull(Trim(mrc.Fields(i - 1))) Then
Select Case mrc.Fields(i - 1).Type
Case adDBDate
.TextMatrix(.Rows - 1, i) = Format(mrc.Fields(i - 1) & "", "yyyy - mm - dd")
End Select
End If
Next i
mrc.MoveNext
Loop
End WithEnd Sub
解决方案 »
- 把数据导出到excel表格中,如何实现excel中几个格子的合并呀?
- ListBox 中添加的数据大于 32767时怎么办 ???
- 如何判断MediaPlayer是否播放完毕呢???
- 急急急!各位大哥。我快烦死了。大家帮帮忙!
- 关于连接与程序相同目录的数据库的连接语句问题?
- 怎样在客户机上自动注册网页里使用的ActiveX控件
- 关于窗口
- 急,关于VSPrinter控件报表的问题:如何在同一行上打印多个表格或多段文字?
- 请问高手们一个关于IE编程的问题,在线等待,如果解决本人定给高分!
- VB中增加超级链接功能
- GRID显示数据问题(在线)急
- 高分求教,大哥大姐救命啊,我目前通过rainstormmaster(暴风雨 v2.0)online(龙卷风V2.0--再战江湖) 给的代码实现了通过SMTP发邮件的功能
放循环外面的写法:.rows=mrc.recordcount+1
外面 .rows=.fixedrows+mrc.recordcount
了解这一点就很清楚了!