[Quote=引用 1 楼 qshurufa 的回复:]
For i As Integer = 0 To DataGridView.RowCount-1
sSQL = "INSERT INTO t_Stock (StockNo) VALUES ('" & DataGridView.Rows(i).Cells(0).Value& "')"
Next
[/Quote]
....
For i As Integer = 0 To Me.dgvContacts.Rows.Count - 1
sSQL = "INSERT INTO Contacts (RisunContactsNo,RisunContactsCName)" & _
" VALUES('" & Me.dgvContacts.Rows(i).Cells("序號").Value.ToString & "'" & _
",'" & Me.dgvContacts.Rows(i).Cells("中文名").Value.ToString & "')"
Dim cmd As New SqlCommand
Dim Adp As New SqlDataAdapter
Dim con As New SqlConnection(sSQLConn)
con.Open()
cmd.Connection = con
cmd.CommandType = CommandType.Text
cmd.CommandText = sSQL
Adp.SelectCommand = cmd
cmd.ExecuteNonQuery()
con.Close()
Next