dxGrid使用实例
来源:互联网 发布:网络销售的方法 编辑:程序博客网 时间:2024/05/21 08:57
//Delphi
procedure TForm1.ButtonLevelUpClick(Sender: TObject);
var
ARecord: TcxCustomGridRecord;
begin
with TcxCustomGridTableView(Grid.FocusedView) do
begin
ARecord := Controller.FocusedRecord;
if Assigned(ARecord) then
begin
ARecord := ARecord.ParentRecord;
if Assigned(ARecord) then
ARecord.Focused := True;
end;
end;
end;
//Delphi
procedure TForm1.ButtonLevelDownClick(Sender: TObject);
function GetFirstChild(ARecord: TcxCustomGridRecord): TcxCustomGridRecord;
begin
if ARecord is TcxGridMasterDataRow then
Result := ARecord.GetFirstFocusableChild
else
if ARecord is TcxGridGroupRow then
Result := ARecord.ViewData.Records[ARecord.Index + 1]
else
Result := nil;
end;
var
ARecord: TcxCustomGridRecord;
begin
with TcxCustomGridTableView(Grid.FocusedView) do
begin
ARecord := Controller.FocusedRecord;
if Assigned(ARecord) then
begin
ARecord.Expand(False);
ARecord := Controller.FocusedRecord;
ARecord := GetFirstChild(ARecord);
if Assigned(ARecord) then
ARecord.Focused := True;
end;
end;
end;
如TableView是为TcxDBTableView的话,那
TableView.DataController.Groups.ChildCount(1); //这里得到的是第一个组的总数
看看下面我以前写的一段代码
for i := 0 to Tableview.Controller.SelectedRowCount - 1 do
begin
//判断选择的是否为组的行
if TableView.Controller.SelectedRows[i] is TcxGridGroupRow then
begin
//取得组的行的index;
GRowIndex := TableView.Controller.SelectedRows[i].Index;
//取得组的行的ID;
GRowID := TableView.DataController.Groups.DataGroupIndexByRowIndex[GRowIndex];
//这里得到的是组的行的那个标题
ShowMessage(TableView.DataController.Groups.GroupValues[GRowID]);
//这里是组的行数
ShowMessage(IntToStr(TableView.DataController.Groups.ChildCount[GRowID]));
end;
end;
end;
procedure TForm1.CalculateGroupAverage(ADataGroupIndex: TcxDataGroupIndex);
var
AMengeTo, AGesamt, AVarAverage: Variant;
begin
with gv.DataController.Summary do
begin
AMengeTo := GroupSummaryValues[ADataGroupIndex, 2];
AGesamt := GroupSummaryValues[ADataGroupIndex, 0];
if not (VarIsNull(AMengeTo) or VarIsNull(AGesamt)) then
begin
AVarAverage := AGesamt / AMengeTo;
GroupSummaryValues[ADataGroupIndex, 3] := FloatToStrF(AVarAverage, ffFixed, 15, 2);
end;
end;
end;
procedure TForm1.gvDataControllerSummaryAfterSummary(
ASender: TcxDataSummary);
var
AChildDataGroupsCount: Integer;
AChildDataGroupIndex, AParentDataGroupIndex: TcxDataGroupIndex;
AChildPosition: Integer;
i: Integer;
begin
with TcxDataControllerGroups(gv.DataController.Groups) do
begin
for i := 1 to GroupingItemCount do
begin
AChildDataGroupsCount := ChildCount[i -2];
for AChildPosition := 0 to AChildDataGroupsCount - 1 do
begin
AChildDataGroupIndex := ChildDataGroupIndex[i -2, AChildPosition];
CalculateGroupAverage(AChildDataGroupIndex);
end;
end;
end;
end;
- dxGrid使用实例
- dxgrid cxGrid使用
- DXgrid
- .net Reflector 反汇编解决 Developer Express v2009 vol 1 DXGrid Demo 拷贝后发生 XamlParseException 的问题
- 避免使用实例陷阱
- SAFEARRAY使用实例
- log4j使用实例
- VSS使用实例1
- Label使用实例
- classpath使用故障实例
- Timer使用实例
- 使用实例文档
- DataList使用实例
- Web Services使用实例
- GTK+剪贴板使用实例
- iptable使用实例
- IBatis_Net使用实例
- Delegate的使用实例
- const pointer的读法
- cxgrid根据字段设置颜色
- cxgrid基本设置
- dxDBTreeView的结点间移动
- 按下F2编辑dxDBTreeView的节点
- dxGrid使用实例
- 三十分钟掌握STL
- C++常用排序法研究
- Java SE Development Kit (JDK) 5.0目录结构
- GPS设备和GPS Sample程序测试
- 在Firefox和Opera等浏览器中使用Plug-In
- 单元格及单元格区域常用VBA语句收集
- 爱情是一部忧伤的童话
- eclipse 工程复制