Dim myDataAdapter As New SqlClient.SqlDataAdapter()
myDataAdapter.SelectCommand = New SqlClient.SqlCommand("select * from 设备_备件关系表 where 设备工艺编号='" & Trim(textBox设备工艺编号.Text) & "'", DeviceConnection)
Dim custCB As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder(myDataAdapter)
DeviceConnection.Open()
Dim custDS As DataSet = New DataSet()
myDataAdapter.Fill(custDS, "设备_备件关系表")
.................修改custDS
myDataAdapter.Update(custDS, "设备_备件关系表")
Waiting For...