→→→DataGridに集計値を表示する

<DataColumn><Expression>

仕入テーブル
伝票NO　仕入日　商品コード　数量
001       2008/7/1  A001        100
002       2008/7/5  B001        250

商品テーブル
商品コード　商品名　単価
A001           *****    270
B001           /////    500

--------------------------------------------------
Dim dCol As DataColumn
Dim dSet As DataSet = New DataSet("仕入")
Dim dAdp As OleDbDataAdapter
Dim ocn As OleDbConnection = New OleDbConnection
ocn.ConnectionString = "Provider～"


dAdp = New OleDbDataAdapter ("SELECT * FROM 仕入" , ocn)
dAdp.Fill( dSet, "t_仕入")

dAdp = New OleDbDataAdapter ("SELECT * FROM 商品" , ocn)

dAdp.Fill( dSet, "t_商品")

dSet.relations.Add("商品売上", dSet.Tables("t_商品").Columns("商品コード"),

                                            dSet.Tables("t_仕入").Columns("商品コード"))

dCol = dSet.Tables("t_商品").Columns.Add("仕入数")

dCol.Expression = "SUM(Child.数量)"

DataGrid1.SetDataBinding( dSet , "t_商品")