下面我們以示例的形式展示如何根據(jù)參數(shù)類型自定義編輯器，用以替代標(biāo)準(zhǔn)的參數(shù)編輯器。這份示例報表將從LightSwitch查詢中獲得參數(shù)，根據(jù)所獲得的參數(shù)，客戶列表將可以顯示國籍。

根據(jù)這個參數(shù)類型，XtraReports創(chuàng)建一個默認(rèn)的文本框編輯器，終端用戶更方便的使用參數(shù)，你可以將這個編輯器改編為ComboBoxEditRepor，存在于tPreviewModel中的CustomizeParameterEditors事件處理程序。
以下是代碼演示：

C#
using System.Collections.Generic;
using DevExpress.Xpf.Editors;
using DevExpress.Xpf.Printing;
// ...

namespace LightSwitchApplication {
public partial class ReportPreviewScreen {
public void CustomizeReportPreviewModel(ReportPreviewModel model) {
model.CustomizeParameterEditors += model_CustomizeParameterEditors;
}

List<object> customers;

void model_CustomizeParameterEditors(object sender, CustomizeParameterEditorsEventArgs e) {
if (e.Parameter.Name == "Country") {
var editor = new ComboBoxEdit();
editor.ItemsSource = customers;
editor.IsTextEditable = false;
e.Editor = editor;
e.BoundDataMember = "EditValue";
}
}

partial void ReportPreviewScreen_Activated() {
this.ReportTypeName = "XtraReport1";
customers = new List<object>();
foreach (Customer customer in new DataWorkspace().NorthWind_XtraReportsData.Customers) {
customers.Add(customer.Country);
}
}
}
}

VB
Imports System.Collections.Generic
Imports DevExpress.Xpf.Editors
Imports DevExpress.Xpf.Printing
' ...

Namespace LightSwitchApplication
Partial Public Class ReportPreviewScreen
Public Sub CustomizeReportPreviewModel(ByVal model As ReportPreviewModel)
AddHandler model.CustomizeParameterEditors, AddressOf model_CustomizeParameterEditors
End Sub

Private customers As List(Of Object)

Private Sub model_CustomizeParameterEditors(ByVal sender As Object, ByVal e As CustomizeParameterEditorsEventArgs)
If e.Parameter.Name = "Country" Then
Dim editor = New ComboBoxEdit()
editor.ItemsSource = customers
editor.IsTextEditable = False
e.Editor = editor
e.BoundDataMember = "EditValue"
End If
End Sub

Private Sub ReportPreviewScreen_Activated()
Me.ReportTypeName = "XtraReport1"
customers = New List(Of Object)()
For Each customer As Customer In New DataWorkspace().NorthWind_XtraReportsData.Customers
customers.Add(customer.Country)
Next customer
End Sub
End Class
End Namespace

報表現(xiàn)在準(zhǔn)備好了。運行該應(yīng)用程序，選擇并得到結(jié)果。