データセットにカスタム列を追加する

サンプルコード

Imports System.Data
Imports System.Data.SqlClient

Sub Main()
  Dim conectStr As String = "接続文字列"
  Dim QueryCommand As String = "Select * From 商品"
  Dim adpt As New SqlDataAdapter(QueryCommand, conectStr)
  Dim Ds As New DataSet("Sample")
  Dim Dt As New DataTable("商品")

  Ds.Tables.Add(Dt)
  adpt.Fill(Dt)
  Dim addCol As DataColumn = Dt.Columns.Add("商品名/区分ID")
  addCol.Expression = "Trim(商品名) + '/' + 区分ID"
 
  '確認のため表示
  DataGridView1.DataSource = Dt
End Sub

データセットに列を追加した後、追加した列のExpressionプロパティに選択式を追加します。 Expression内ではSQLコマンド関数の使用もできます。