主题：[求助]相关联信息

有两个表：“SelfInquiry”,"SelfQuote"。两表中都有相同字段“内询单号”，“selfQuote”中还有一个字段“报送状态”。

有两个窗体：“内询价”（所有者表为“SelfInquiry”），“相关内报价”（里面TABLE表控件关联到“SelfQuote”）

在“内询价”窗体中有一个按钮“相关内报价”。

目的：在“内询价”窗体中点“相关内报价”，跳出“相关内报价”窗体，并在窗体表中显示与当前内询单号相关的“已报送”状态的内报价数据。如下代码对的吗？：

Form("相关内报价").show

Dim dr1 As DataRow = DataTables("SelfInquiry").datarows

Dim dr2 As datarow = DataTables("Selfquote").Find("内询单号= '" & dr1("内询单号") & “'")

     if dr2 IsNot Nothing Then

        DataTables(“SelfQuote”). LoadFilter = "报送状态 = '已报送'"

    else

        MessageBox.Show(“还没人报价呢.”)

end If

DataTables(“SelfQuote”).Load