VB.net Dtoの詰め替えで効率の良い方法が分からない

Question

バージョン VB.net 4.5.2

閲覧ありがとうございます。
単票形式の帳票で12件ずつのデータを出力します。
Daoで取得したDataTableをFoeRoopでDtoに詰め替えるのですが
どうしてもコードが冗長になるので、もっとスッキリ書ける方法はないかアドバイスを頂きたいです。

**DTOクラス**
```VB

Class RPT_0060SettingDto

    Public Property biz As String
    Public Property rack_id As String

    Public Property disp_color_1 As String
    Public Property parts_no_1 As String
    Public Property name_1 As String
    Public Property parts_name_1 As String
    Public Property location_no_1 As String
    Public Property order_point_1 As String

    Public Property disp_color_2 As String
    Public Property parts_no_2 As String
    Public Property name_2 As String
    Public Property parts_name_2 As String
    Public Property location_no_2 As String
    Public Property order_point_2 As String

  'プロパティが連番で12まで続く・・・
   
    Public Property disp_color_12 As String
    Public Property parts_no_12 As String
    Public Property name_12 As String
    Public Property parts_name_12 As String
    Public Property location_no_12 As String
    Public Property order_point_12 As String
   
End Class


```

**問題のコード**
```VB
Class RPT_0060Util

    Shared Function GetSettingDto(ByVal table As DataTable) As List(Of RPT_0060SettingDto)

        Dim dtoList As New List(Of RPT_0060SettingDto)
        Dim settingDto As RPT_0060SettingDto

        Dim i As Integer = 0

        For Each row As DataRow In table.Rows
            '改ページしたら初期化
            If i > 0 And i Mod 12 = 0 Then
                dtoList.Add(settingDto)
                settingDto = New RPT_0060SettingDto
            End If


            If i Mod 12 = 0 Then
                settingDto.disp_color_1 = row("disp_color").ToString
                settingDto.parts_no_1 = row("parts_no").ToString
                settingDto.parts_name_1 = row("parts_name").ToString
                settingDto.location_no_1 = row("location_no").ToString
                settingDto.order_point_1 = row("order_point").ToString
            ElseIf i Mod 12 = 1 Then
                settingDto.disp_color_2 = row("disp_color").ToString
                settingDto.parts_no_2 = row("parts_no").ToString
                settingDto.parts_name_2 = row("parts_name").ToString
                settingDto.location_no_2 = row("location_no").ToString
                settingDto.order_point_2 = row("order_point").ToString
            End If

            i = i + 1
        Next
        dtoList.Add(settingDto)

        Return settingDto

    End Function

End Class
```

DTOのプロパティが1から12までの連番になっているので
settingDto.disp_color_ + 変数・・・で取得できそうなのですがうまくいきませんでした。
何か良い方法をご教授いただけると助かります。

Accepted Answer

12まで続くプロパティの部分を別クラスにして、それでList作ったらどうでしょう。
例えば、
```vbnet
    Class Hoge
        Public Sub New(row As DataRow)
            disp_color = row("disp_color").ToString
            parts_no = row("parts_no").ToString
            parts_name = row("parts_name").ToString
            location_no = row("location_no").ToString
            order_point = row("order_point").ToString
        End Sub

        Public Property disp_color As String
        Public Property parts_no As String
        Public Property name As String
        Public Property parts_name As String
        Public Property location_no As String
        Public Property order_point As String
    End Class
```
こんなクラスを作って、
```vbnet
    settingDto = New RPT_0060SettingDto
    dtoList.Add(settingDto)
    For Each row As DataRow In table.Rows
        If settingDto.HogeList.Count = 12 Then
            settingDto = New RPT_0060SettingDto
            dtoList.Add(settingDto)
        End If

        settingDto.HogeList.Add(New Hoge(row))
    Next
```
こんな感じのループにすると、HogeListが12個溜まった次のループでdtoListが追加されます。
（適当に考えたので、デバッグはしてないです）

Answer

> どうしてもコードが冗長になるので、もっとスッキリ書ける方法はないかアドバイスを頂きたいです。質問のコメント欄に書きましたが、RPT_0060SettingDto クラスの構造を大幅に見直さないと「どうしてもコードが冗長」というところはほとんど改善の余地はなさそうです。なので、質問者さんのケースで DTO をどのように処置しているか不明なので可能かどうかわかりませんが、12 レコードの List<レコード> を RPT_0060SettingDto の要素にするよう見直して、Linq to Enitities の Skip, Take を使って取得する方法を提案しておきます。結果は radian が提案されたものとほぼ同じになるようですが。実際にできるところを示さないと説得力がないかもしれませんが、質問者さんのデータソースは使えませんので、Microsoft のサンプルデータベース Northwind の Products テーブルを使います。内容は以下の通りで 77 レコードあります。 ![イメージ説明](0e68cc9131f2d4d5a0f98d3204e507ad.jpeg) DTO は以下のようにします。以下 C# で書きますが読めますよね？　ダメなら変換サービス [https://converter.telerik.com/](https://converter.telerik.com/) がありますので使ってみてください。 ``` public class ProdtctDTO { public int ProductID { get; set; } public string ProductName { get; set; } public Nullable UnitPrice { get; set; } } public class RPT_0060SettingDto { public string Biz { get; set; } public string RackId { get; set; } // これに 12 レコード取得する public List ProductList { get; set; } } ``` まず、SQL Server から直接 Linq to Entities で取得するコードは以下の通りです。NORTHWINDEntities というのは、Visual Studio の ADO.NET Entity Data Model ウィザードを使って自動生成させた EDM のコンテキストクラスです。 ``` using System; using System.Collections.Generic; using System.Linq; using System.Data; using System.Data.SqlClient; namespace ConsoleAppLinqToEntities { class Program { static void Main(string[] args) { // Linq to Entities で SQL Server から直接取得 List list = new List(); NORTHWINDEntities context = new NORTHWINDEntities(); // レコード総数 int count = context.Products.Count(); // 12 件ずつ int pageSize = 12; // list の中の RPT_0060SettingDto の数 int totalPages = (int)Math.Ceiling(count / (double)pageSize); for (int i = 0; i < totalPages; i++) { RPT_0060SettingDto settingDto = new RPT_0060SettingDto(); settingDto.Biz = "Product-" + i; settingDto.RackId = i.ToString(); IQueryable productList = context.Products .OrderBy(p => p.ProductID) .Skip(i * pageSize) .Take(pageSize) .Select(p => new ProdtctDTO { ProductID = p.ProductID, ProductName = p.ProductName, UnitPrice = p.UnitPrice }); settingDto.ProductList = productList.ToList(); list.Add(settingDto); } } } } ``` 結果は以下のようになります。期待通り取得できているのが分かるでしょうか？　ただ、一つだけ余計な点があって、それは、for ループで回すたびに SQL Server にクエリを投げてレコードを取得する点です。なので、context.Products.ToList() でまず全レコード取得してから目的の形に加工した方が良いかもしれません。 ![イメージ説明](d3c4256866fa550f9aa49d77e563c733.jpeg) どうしても DataTable を使いたいという場合は、以下のようにして同じ結果を取得できます。 ``` // 一旦 SQL Server から DataTable にレコードを取得し、それから目的のリストを取得 List list2 = new List(); // SQL Server からレコードを取得し DataTable を作成 DataTable table = new DataTable(); string connString = Properties.Settings.Default.NORTHWINDConnectionString; string selectQuery = "SELECT * FROM [Products]"; using (var connection = new SqlConnection(connString)) { var adapter = new SqlDataAdapter(); using (var command = new SqlCommand(selectQuery, connection)) { adapter.SelectCommand = command; adapter.Fill(table); } } for (int i = 0; i < totalPages; i++) { RPT_0060SettingDto settingDto = new RPT_0060SettingDto(); settingDto.Biz = "Product-" + i; settingDto.RackId = i.ToString(); IEnumerable productList = table.AsEnumerable() .OrderBy(p => p.Field("ProductID")) .Skip(i * pageSize) .Take(pageSize) .Select(p => new ProdtctDTO { ProductID = p.Field("ProductID"), ProductName = p.Field("ProductName"), UnitPrice = p.Field("UnitPrice") }); settingDto.ProductList = productList.ToList(); list2.Add(settingDto); } ```

関連した質問