01.For i As Integer = 0 To ServicebilldetailDataGridView1.Rows.Count - 1
02. If ServicebilldetailDataGridView1.Rows(i).Cells(5).Value IsNot Nothing Then
03. Dim id As String = ServicebilldetailDataGridView1.Rows(i).Cells(1).Value.ToString()
04. Dim strselectDEL As String
05. strselectDEL= "declare @sdid varchar(20),@seid varchar(20),@smid varchar(20)" & vbCrLf & _
06. "declare @name varchar(50),@price int" & vbCrLf & _
07. "set @sdid=ServicebilldetailDataGridView1.Rows(i).Cells(0).Value.ToString()" & vbCrLf & _
08. "set @seid=ServicebilldetailDataGridView1.Rows(i).Cells(1).Value.ToString()" & vbCrLf & _
09. "set @smid=ServicebilldetailDataGridView1.Rows(i).Cells(2).Value.ToString()" & vbCrLf & _
10. "set @name=ServicebilldetailDataGridView1.Rows(i).Cells(3).Value.ToString()" & vbCrLf & _
11. "set @price=ServicebilldetailDataGridView1.Rows(i).Cells(4).Value" & vbCrLf & _
12. "if(select count(*) from tablename where sdid=@sdid) = 0" & vbCrLf & _
13. "begin" & vbCrLf & _
14. "insert into tablename(sdid,seid,smid,name,price) select @sdid,@seid,@smid,@name,@price" & vbCrLf & _
15. "End" & vbCrLf & _
16. "Else" & vbCrLf & _
17. "begin" & vbCrLf & _
18. "update tablename set seid=@seid,smid=@smid,name=@name,price=@price where sdid=@sdid" & vbCrLf & _
19. "End"
20. com.CommandType = CommandType.Text
21. com.CommandText = strselectDEL
22. com.Connection = con
23. com.ExecuteNonQuery()
24. MsgBox("OK")
25.
26. End If
27. Next
