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

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()