主题：for each 取数组元素的值。

Dim match As Boolean = False

For Each id As Integer = 0 To msm.Length - 1
    If (msm(id) =  tr) Then
        match = True
        Exit For
    End If
Next
If  match  = False Then
    Dim cmd1 As new  SQLCommand
    cmd1.CommandText = "Exec kwsltjdec  '" & mr("生产订单号码") & "','" & mr("工单行号") & "','" & mr("物料编码") & "','" & mr("库位编码") & "','" & mr("库位类别") & "'"
    Dim t As DataTable = cmd1.ExecuteReader
    mr.save
End If