Dim t As Table = Forms("去化报表").Controls("Table1").Table
t.DataSource = g.BuildDataSource()
t.DataTable.DataCols.Add("单位成本", gettype(double), "iif(数量 = 0, null, 采购成本/数量)")