QAS Pro.某些地址的问题

你想明白了吗？

从外观上看，我认为你在这里遇到的问题是搜索的上下文。QAS服务器和QuickAddress类都是无状态的——它们没有以前搜索的历史记录。

正因为如此，目前没有任何东西将你的第一次邮政编码搜索和第二次地址行搜索联系起来。因此，当您调用RefinePostcode时，您根本没有进行优化。相反，您正在全英国范围内执行一项全新的搜索，搜索地点为"0/1 15 Brachelston Street，GREENOCK，Renfrewshire"。虽然QAS专业版可以处理这个问题，但这次搜索会产生一些可能性，所以你想要的结果不是第一个返回的结果。

这里有一些改进工作流程的可能性。为了避免对VBA代码进行任何更改，并仅将更改限制在上面的示例中，可以将状态引入此类并更改工作流，以便在搜索时输入邮政编码。类似于以下内容：

public class QAS
{
    public QAS()
    {       
        // Create a new soap proxy that can talk to QAS Pro Web   
        QuickAddress address = new QuickAddress("http://10.10.15.7:2021") 
        {
            Engine = QuickAddress.EngineTypes.Singleline,
            Flatten = true
        };
        this.searchService = address;
    }
    /// <summary>
    /// For the supplied search, get the moniker which can then be used to format the address.
    /// </summary>
    private string GetMoniker(string p)
    {
        return this.searchService.Search("GBR", p, PromptSet.Types.Default, "Database layout").Picklist.Items[0].Moniker;
    }
    /// <summary>
    /// Return a formatted address from the supplied search. 
    /// </summary>
    public string[] RefinePostcode(string p)
    {
        // Append the postcode to our address to speed up and improve searches.
        string search = p + "," + Postcode;
        SearchResult result = this.searchService.Search("GBR", 
                                                        postCode,
                                                        PromptSet.Types.OneLine,
                                                        "Database layout");
        if ( result.Picklist.Items.Length > 0 )
        {
        }
        else
        {
            // What is your workflow if an address is not found?
        }
        string moniker = this.GetMoniker(search);
        FormattedAddress formattedAddress = this.searchService.GetFormattedAddress(moniker, "Database Layout");
        return new string[] { formattedAddress.AddressLines[0].Line, formattedAddress.AddressLines[1].Line, formattedAddress.AddressLines[2].Line, formattedAddress.AddressLines[3].Line, formattedAddress.AddressLines[4].Line, formattedAddress.AddressLines[5].Line, formattedAddress.AddressLines[6].Line };
    }
    /// <summary>
    /// Once a postcode is captured by the operator, return a list of potential addresses. 
    /// </summary>
    public string[] SearchPostcodes(string postCode)
    {
        Postcode = postcode;
        SearchResult result = this.searchService.Search("GBR", 
                                                        postCode,
                                                        PromptSet.Types.OneLine,
                                                        "Database layout");
        string[] strArray = new string[result.Picklist.Length];
        for (int i = 0; i < result.Picklist.Length; i++)
        {
            strArray[i] = result.Picklist.Items[i].Text;
        }
        return strArray;
    }
    private QuickAddress searchService { get; set; }
    /// <summary>
    /// Gets or sets the postcode from the initial search.
    /// </summary>
    private string Postcode
    {
        get;
        set;
    }
}

不过，如果你有时间，最好再进一步，正确地修复你的工作流程。QAS Pro Web中搜索之间的上下文是通过名字处理的。这些是Pro Web在与服务器进行所有交互后提供的令牌，您可以使用这些令牌来获取格式化地址或执行进一步搜索。在提供的文档中有更多详细信息。

在你对邮政编码进行初步搜索后，你会得到一个地址列表，每个地址都有一个与之相关的名字对象。如果你能够存储这些名字对象，并将它们与你放在组合框中的列表相关联，那么当操作员选择一个名字对象时，你可以将名字对象直接传递到GetFormatted地址中，你应该能够更快地捕获地址，更准确，代码更少！

希望能有所帮助！铝

这是访问所使用的代码。

Private Sub cmdSelect_Click()
    Dim thisOne As String
    thisOne = Me.lkupAddressList.Value
    Dim objQAS As MangoQAS.QAS
    Set objQAS = New MangoQAS.QAS
    Dim finalAddress As Variant
    finalAddress = objQAS.RefinePostcode(thisOne)
    Form_Script.txtAddress1 = finalAddress(0)
    Form_Script.txtAddress2 = finalAddress(1)
    Form_Script.txtAddress3 = finalAddress(2)
    Form_Script.txtTown = finalAddress(3)
    Form_Script.txtCounty = finalAddress(4)
    Form_Script.txtPostcode = finalAddress(5)
    Set objQAS = Nothing
    DoCmd.Close acForm, "frmSelectAddress_qas"
End Sub
Private Sub Form_Load()
    Dim postcodeToSearch As String
    postcodeToSearch = Form_Script.txtPostcode
    Dim objQAS As MangoQAS.QAS
    Set objQAS = New MangoQAS.QAS
    Dim results As Variant
    results = objQAS.SearchPostcodes(postcodeToSearch)
    Dim howMany As Integer
    howMany = UBound(results)
    For i = 0 To howMany
        Me.lkupAddressList.AddItem ("'" & results(i) & "'")
    Next
    Set objQAS = Nothing
End Sub