主题：跨表数据对比

Dim cmd As new SQLCommand
Dim dt As DataTable '= DataTables("合同明细_table1")
cmd.C
Select Case e.sender.name
    Case "未发货"
        cmd.CommandText = "Select * Fr om {合同明细} Where [合同编号]  not In ( Select 合同编号 Fr  om {发货明细} Where 合同编号 Is not Null)"
        dt=cmd.ExecuteReader()

End Select

想通过以上代码实现查找已有订货未发货的订单明细表并显示在窗口中，怎么修改上述代码，假定窗口名称为窗口1