01.Dim sqlC As String = ""
02. Dim DT As New DataTable
03. Dim sendStatus As Integer
04.
05. sqlC = "Select c.* "
06. sqlC &= "FROM Clother c
07. sqlC &= "WHERE c.No=" & tClother
08. DT = FShowData(sqlItem)
09.
10. If DgvItem.Rows.Count > 0 Then
11. For i As Integer = 0 To DgvItem.Rows.Count - 1
12. If (CStr(DgvItem.Rows(i).Cells("Code").Value) <> "") Then
13. Dim dr As DataGridViewRow
14. dr = DgvItem.Rows(i)
15. DT.TableName = "Code"
16. If DT.Rows.Count > 0 Then
17. For j As Integer = 0 To DT.Rows.Count - 1
18. If CStr(DgvItem.Rows(i).Cells("Code").Value) <> CStr(DT.Rows(j).Item("Code")) Then
19. sendStatus = FuncInsert(CStr(DgvItem.Rows(i).Cells(0).Value))
20. End If
21. Next
22. End If
23.
24. DT.Rows.Add(dr.Cells("Code").Value).ToString() >> Error Line: Value was either too large or too small for an Int32.Couldn
25.
26. End If
27. Next
28. End If
29. DT.Dispose()
30. DT = Nothing
