With Tables(eForm.Name & "_Table1")
If .TopPosition > -1 Then '如果选定区域包括数据行
Dim cmd As New SQLCommand
cmd.C
For i As Integer = .BottomPosition To .TopPosition Step -1
Dim dr As Row = .rows(i)
'删除*************************
cmd.CommandText = "DELETE FROM {SC_已打包明细表} WHERE 打包条码 = '" & dr("打包条码") & "'"
cmd.ExecuteNonQuery
Next
End If
End With