... '以下のコードは、ルート レベルのフィールド レイアウトに少なくともひとつの集計があることを想定します。 Try Dim val As Object = Me.xamDataPresenter1.Records.SummaryResults(0).Value Dim summaryValue As Decimal = Convert.ToDecimal(val) MessageBox.Show(String.Format("First summary value is {0}", summaryValue)) Catch '警告なしに失敗する End Try ...