作者shuuns (Dotty)
看板Visual_Basic
标题[.NET] 错误讯息 "并未将物件参考设定为物件的执行个体"
时间Wed Oct 11 23:26:52 2006
------------------------------------------------------------------------
|
！ 类型 'System.NullReferenceException' 的未处理例外状况发生於 |
| WizExportOper.exe |
| |
| 其他资讯: 并未将物件参考设定为物件的执行个体 |
------------------------------------------------------------------------
请问一下这个错误讯息是什麽意思 我不知道怎麽了
我照着书上做 大概的意思是要把SQLcommand查询所得的资料传入DataSet中
然後再用CrystalReport读出来
但是看来应该是在将SqlDataReader填入DataRow时出错
以下是我的程式码 麻烦大家帮我解答 谢谢
'定义ReportDocument物件
Dim objRptDoc As New ReportDocument()
'定义DataReader物件
Dim rdrPR210 As SqlDataReader
'定义DataTable物件
Dim dtPR210 As New DataTable()
'定义DataRow物件
Dim drPR210 As DataRow
'把资料集的表格指向dt
dtPR210 = DsExport1.Tables("dsExport2")
'赋予cmdSQL参数值
With cmdSQL
.Parameters("@PurchaseID").Value = "purchase1"
'.Parameters("@PurchaseID").Value = PurchaseID
End With
cnDB.Open()
rdrPR210 = cmdSQL.ExecuteReader(CommandBehavior.CloseConnection)
Do While rdrPR210.Read
drPR210 = dtPR210.NewRow()
drPR210("PurchaseID") = rdrPR210.GetString(0) '是这里出错的
drPR210("PurchaseDate") = rdrPR210.GetDateTime(1)
drPR210("SupplierID") = rdrPR210.GetString(2)
drPR210("SupplierName") = rdrPR210.GetString(3)
drPR210("ProductID") = rdrPR210.GetString(4)
drPR210("ProductName") = rdrPR210.GetString(5)
drPR210("PurchaseProperty") = rdrPR210.GetString(6)
drPR210("PurchaseAmount") = rdrPR210.GetDecimal(7)
drPR210("PurchaseUnitPrice") = rdrPR210.GetDecimal(8)
drPR210("PurchaseQuantity") = rdrPR210.GetDecimal(9)
dtPR210.Rows.Add(drPR210)
Loop
Try
objRptDoc.Load("D:\Subject\练习的\WizExportOper\crExport2.rpt")
objRptDoc.SetDataSource(DsExport1)
CRV.ReportSource = objRptDoc
Catch err As System.SystemException
MessageBox.Show(err.ToString, "error", MessageBoxButtons.OK,
MessageBoxIcon.Error)
End Try
--
你可以试着将sunnys倒过来看看
。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.59.237.109
1F：推 fumizuki:cmdSQL 没有命令文字？ 10/12 12:41
※ 编辑: shuuns 来自: 61.59.236.116 (10/20 23:18)