Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = sql
dt = cmd.ExecuteReader()
If dt.DataRows.Count=0 Then
MessageBox.Show("无数据")
Return
Else
Tables("资产折旧").StopRedraw
Tables("资产折旧").AddNew(dt.DataRows.Count)
End If
Dim i As Integer = 0
For Each dr As DataRow In dt.DataRows
Dim tr As Row = Tables("资产折旧").Rows(i)
tr("编号")=dr("编号")
tr("类别")=dr("类别")
tr("名称")=dr("名称")
tr("状态")=dr("状态")
tr("折旧原值")=dr("原值")
tr("残值率")=dr("残值率")
tr("折旧月数")=dr("月数")
i=i+1
Next
省略前后代码了，运行没有出错，就是第一次运行所有列都显示出来了，第二次运行就只能出来一半，另一半行都是空白，总行数是对的，是什么原因，大胆推测一下是不是dt = cmd.ExecuteReader()需要时间，请教了
[此贴子已经被作者于2012-4-28 17:42:46编辑过]
加好友 
发短信
Post By：2012/4/28 16:55:00 [只看该作者]
