"单据信息":[
            {"caption":"条码","fieldname":"tiaoma","width":147,"filtering":"true","showsum":false,"readonly":true},
            {"caption":"商品","fieldname":"shangpinmingcheng","width":300,"filtering":"false","showsum":false,"readonly":true},
            {"caption":"单位","fieldname":"danwei","width":64,"filtering":"false","showsum":false,"readonly":true},
            {"caption":"规格","fieldname":"guige","width":137,"filtering":"false","showsum":true,"readonly":true},
            {"caption":"采购价","fieldname":"caigoujia","width":93,"filtering":"false","showsum":true,"readonly":false},
            {"caption":"采购数量","fieldname":"CaiGouShuLiang","width":93,"filtering":"false","showsum":true,"readonly":false},
            {"caption":"采购金额","fieldname":"CaiGouJinE","width":93,"filtering":"false","showsum":true,"readonly":true}
        ]        

procedure TBill.BillDetail;
begin
  grid.Columns.Clear;
  grid.Columns.BeginUpdate;
  try
    //action column
    var column: TUniBaseDBGridColumn := grid.Columns.Add;
    column.ActionColumn.Enabled := True;
    column.Title.Caption := '操作';
    column.Width := 64;
    var btn: TUniCustomButtonItem := column.ActionColumn.Buttons.Add as TUniCustomButtonItem;
    btn.ButtonId := 0;
    btn.Hint := '删除';
    btn.ImageIndex := 3;
    //其他列
    for var i: Integer := 0 to bill.O[billType].A[BillInfo].Count - 1 do
    begin
      var obj: JO := bill.O[billType].A[BillInfo].Items[i] as JO;
      var col: TUniBaseDBGridColumn := grid.Columns.Add;
      col.FieldName := obj.S['fieldname'];
      col.Title.Caption := obj.S['caption'];
      col.Width := obj.I['width'];
      col.Filtering.Enabled := obj.B['filtering'];
      if col.Filtering.Enabled then
        col.Filtering.Editor := barcodeControl;
      col.ShowSummary := obj.B['showsum'];
      col.ReadOnly := obj.B['readonly'];
    end;
  finally
    grid.Columns.EndUpdate;
  end;
end;