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

有两个表：“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

Forms("相关内报价").Open()

Dim dr1 As Row = Tables("SelfInquiry").Current

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

     If dr2 IsNot Nothing Then

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

    Else

        MessageBox.Show("还没人报价呢.")

End If

DataTables("SelfQuote").Load()

Forms("相关内报价").Open()
Dim dr1 As Row = Tables("询价").Current

Dim Filter As String = "报送 = '已报送' and 询价单号= '" & dr1("询价单号") & "'"
Dim dr2 As DataRow = DataTables("报价").Find(filter)
If dr2 IsNot Nothing Then
    DataTables("报价"). LoadFilter = filter
Else
    MessageBox.Show("还没人报价呢.")
End If

DataTables("报价").Load()