DevExpress の XPView でのデータ取得（グループ化）です。
VB.net（サーバ側）からXPO経由でデータ取得する手順です。
現状の画面デザインはこのようになっています。
ボタンを配置してVB.net（サーバ側）で地方名（グループ化）の一覧を取得します。
【事前準備】
・DBのテーブルを用意します。
・「DevExpress ORM Data Model」を用意します。
「DevExpress ORM Data Model」作成手順は、過去ブログの「DevExpress の XPO のサンプル作成手順」を参照して下さい。
＜テーブル名：SAMPLE.TABLECHIHO＞
＜テーブル名：SAMPLE.TABLEKEN＞
＜ORM Data Model:SAMPLE.TABLECHIHO、SAMPLE.TABLEKEN＞
＜VB.net（サーバ側）で地方名の一覧を取得＞
・画面に「地方名取得」のボタンを用意します。
【生成PG】
|
1 2 |
<dx:ASPxButton ID="ASPxButton1" runat="server" Text="地方名取得" Theme="RedWine"> </dx:ASPxButton> |
・セッションを生成します。（New DevExpress.Xpo.Session）
・取得条件を定義します。（「ID」が「24〜30」のデータのみ対象とする）
・XPO経由でのデータアクセスを生成します。（New DevExpress.Xpo.XPView）
第一引数：セッション
第二引数：取得するデータクラス型
第三引数：取得するデータカラム名（リレーション先は「.」で指示する）
第四引数：取得するデータ条件（「Parse」を使用して条件を定義する）
・プロパティを定義します。（AddProperty）
第一引数：別名
第二引数：対象カラム名
第三引数：グループ化するかどうか（今回はする「True」）
【生成PG（VB.net）】
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
Protected Sub ASPxButton1_Click(sender As Object, e As EventArgs) Handles ASPxButton1.Click Dim mySession As New DevExpress.Xpo.Session '取得条件 Dim myCriteria As String = String.Empty myCriteria = "[ID] >= 24 And [ID] <= 30" '地方名一覧取得 Dim myChihomei As New DevExpress.Xpo.XPView(mySession, GetType(SAMPLE.TABLEKEN), "CHIHO_ID.CHIHOMEI", DevExpress.Data.Filtering.CriteriaOperator.Parse(myCriteria)) 'グループ化 myChihomei.AddProperty("CHIHO_ID.CHIHOMEI", "CHIHO_ID.CHIHOMEI", True) Dim ii As Integer = 0 Dim myList As String = String.Empty For ii = 0 To myChihomei.Count - 1 '地方名追加 myList = myList & myChihomei.Item(ii).Item("CHIHO_ID.CHIHOMEI") '改行追加 myList = myList & "¥n" Next 'メッセージボックス表示 ScriptManager.RegisterStartupScript(Me, Me.GetType(), "Key", "alert('" & myList & "');", True) End Sub |
画面を表示すると「地方名取得」のボタンがあります。
「地方名取得」のボタンをクリックします。
グループ化された地方名の一覧が表示されましたので、
VB.net（サーバ側）からXPO経由でデータ取得（グループ化）することが出来ました。
- 投稿タグ
- XpoDataSource
