SqlDataAdapter update 多个Table出错
Dim ds As New DataSet()
Dim da As New SqlDataAdapter("Select * From tmpCard; Select * From tmpPay ; Select * From tmpEmp", cn)
da.Fill(ds)
Dim SqlBuilderCard As New SqlCommandBuilder(da)
da.Update(ds.Tables(0))
ds.Tables(0).AcceptChanges()
'update成功
Dim SqlBuildertmpPay As New SqlCommandBuilder(da)
da.Update(ds.Tables(1))
ds.Tables(1).AcceptChanges()
'update失败
Dim SqlBuildertmpEmp As New SqlCommandBuilder(da)
da.Update(ds.Tables(2))
ds.Tables(2).AcceptChanges()