Dim s1 As String = sheet(n,0).TextDim s2 As String = sheet(n,1).TextDim s3 As String = sheet(n,2).Text
If DataTables("订单").Find("编号 = '" & s1 & "' and 产品 = '" & s2 & "' and 数量 = '" & s3 & "'") Is Nothing Then '如果不存在同编号的订单