为何总说我没有新建对象？

[zdwk223]

代码如下：
Dim row As DataRow

For i = 0 To ds.Tables("partlist").Rows.Count - 1
row = ds.Tables("partlist").NewRow
For j = 0 To ds.Tables("partlist").Columns.Count - 1
row(j) = ds.Tables("partlist").Rows(i)(j)
Next
row("id") = (ds.Tables("partlist").Rows(i)("id")) + maxid
ds.Tables("partname").Rows.Add(row)
Next

运行总是在倒数第二行 ds.Tables("partname").Rows.Add(row) 处出错，说“未将对象引用设置到对象的实例。”
可是我已经在第三行new过了阿！

[htpower]

晕~我是透明的

[htpower]

dim ds as new dataset 没看到
ds.Tables("partlist").NewRow你前面是这么干的~
后面你就要是ds.Tables("partlist").Rows.Add(row)这样呀~怎么变了?变了你怎么加进去呀`?

[vwxyzh]

dataset里面没有一个名字叫partname的表吧

[zdwk223]

[Quote=引用 2 楼 vwxyzh 的回复:]
dataset里面没有一个名字叫partname的表吧
[/Quote]
有的，前面fill过

[zdwk223]

ds定义过的。
全部相关代码如下：
Dim cn As SqlConnection
Dim da As SqlDataAdapter
Dim ds As DataSet
cn = New SqlConnection("server='1163479B8DFD4C1';UID=sa;PWD=whoami; database=kxcnc2")
cn.Open()
da = New SqlDataAdapter("select * from flowlist", cn)
ds = New DataSet
da.Fill(ds, "flowlist")
da = New SqlDataAdapter("select * from partlist", cn)
da.Fill(ds, "partlist")

Dim maxid As Integer
Dim cmdstr As String
cmdstr = "select max(id) from partlist"
Dim cmd As SqlCommand
cmd = New SqlCommand(cmdstr, cn)
maxid = cmd.ExecuteScalar

Dim table As DataTable
Dim row As DataRow
Dim col As DataColumn
Dim cb As SqlCommandBuilder

For i = 0 To ds.Tables("partlist").Rows.Count - 1
row = ds.Tables("partlist").NewRow
For j = 0 To ds.Tables("partlist").Columns.Count - 1
row(j) = ds.Tables("partlist").Rows(i)(j)
Console.WriteLine(j)
Console.WriteLine(row(j))
Next
row("id") = (ds.Tables("partlist").Rows(i)("id")) + maxid
row("partname") = (ds.Tables("partlist").Rows(i)("partname")) & "test"
ds.Tables("partname").Rows.Add(row)

Next

cb = New SqlCommandBuilder(da)
da.Update(ds, "partlist")
ds.Tables("partlist").AcceptChanges()

[zdwk223]

[Quote=引用 2 楼 vwxyzh 的回复:]
dataset里面没有一个名字叫partname的表吧
[/Quote]
啊啊，果然是把partlist错打成partname了。
谢谢^^20分不成敬意，请查收

[zdwk223]

啊啊，真对不起……
下次送分给你^^
[Quote=引用 6 楼 htpower 的回复:]
晕~我是透明的
[/Quote]