Dim hh As String = Tables("入库").Current("存储_盒号") Dim gh As String = Tables("入库").Current("存储_格号") Dim dr As DataRow = DataTables("存储").Find("盒号 = '" & hh & "'") If dr IsNot Nothing Dim dv As String = dr("存储编号") output.show(dv) Else output.show("没找到") End If