Delphi TdxDBGrid 使用简介
2013-10-22 17:45
453 查看
一、如何设定可以多列自动排序?
只能使用分组:如按a1,a2,a3,a4排序
先按a1分组,再a2,再a3
然后设置a4的排列(升/降)
二、如何设定左边几列，不能滚动?
建立Band0,Band1
Band0的Fixed=tfLeft
Band1的Fixed=tfnone
设置要锁定的字段的BandIndex=0,其它为1
三、如何访问，显示字段的对象，控制其可视与不可视？
参看自带例程RunTimeCustomizing.dpr
四、既然不能用readonly,那我用edgoEditing属性对吗?
要想ReadOnly=True.我用edgoRowSelected=True;
DXGRID 设计排序和统计的关键前提是先指定 DXGRID 的KEY FIELD字段 然后设置它的 edgoAnsi Sort属性 为TRUE 就可以了.随便点任意字段都可以排序,如果还需要显示合计的话。 需要将edgoLoadAllRecords 设置为 True.
整理ExpressQuantumGrid控件心得如下：
针对TdxDBGrid仅仅设置一些属性，就可以到达很好的效果：
前提：先设置DataSource、ADODataSet、以及TdxDBGrid的属性后，设置ADODataSet的Active＝true；然后才能在TdxDBGrid中的鼠标右键－>
column-> Add all Fields； 注意：一定要设置TdxDBGrid控件的属性keyField、并设置OptionsDB中edgoLoadAllRecord＝true 。
1、显示脚注栏： 设置属性showSummeryFooter＝true即可。
2、显示某一列的汇总值（或总个数）： 设置summaryFooterType，为cstSum（或cstAvg）、并设置summaryFormat，即可。
3、设置Filter：在TdxDBGrid属性中Filter组中Active＝true。
4、设置Sort：在OptionsBehavior中设置 ：edgoAutoSort＝true。
5、设置汉字提示：在column中->SummaryFormat中输入样式，如：（数量＝0.00）
6、summary样式，一共分为三种：
（1）summary：用于行的总体说明GroupNode类型。
（2）summaryFooter：在整个Grid的底部footer处显示。
（3）summaryRowFooter：在每个行的底部显示信息。（行，是几条记录形成的小组）。
------------------------------------------------------------------------------
在DELPHI的标准控件中很容易的用
grid.columns.add就可以加如一个列，但在DX控件中却不支持。
dxDBGrid1.CreateColumn(TdxDBGridMaskColumn);//TdxDBGridMaskColumn，列类型
dxDBGrid1.Columns[4].FieldName := 'City';//4列索引，City字段名称
在keyup事件中，dbgShare.Fields[4].AsFloat:=
dbgShare.Fields[1].AsFloat*
dbgShare.Fields[2].AsFloat*
dbgShare.Fields[3].AsFloat;
这样的话等输完它又变回去了，如果用Post先提交，那样的话整个输入又获得了焦点，继续输的时候又把输好的给覆盖了，总之很不爽，大家可以试试。而在其他事件中，又不是实时变化。
来自：glbboy, 时间：2002-2-1 18:27:00, ID：901471
在DBGRID事件BeforeScroll、ColExit两个事件中都加如下代码实现了汇总。
qryShare.Edit;
qryShare.Fields[4].AsCurrency:=qryShare.Fields[1].AsCurrency*
qryShare.Fields[2].AsCurrency*qryShare.Fields[3].AsCurrency;
qryShare.Post;
但有一点不好，就是对数据库操作太多了。：）
计算字段？有这个数据类型吗？说详细点OK！最好是给具体简单一点的代码！
with DXDBGRID1.CreateColumn(TdxDBGridMaskColumn) as TdxDBGridMaskColumn do
begin
FieldName := ClientDataSet3.Fields[Ifieldcount].FieldName;
HeaderAlignment := taCenter;
Width := 90;
------------------------------------------------------------------------------
SaveToIni可以保存dxDBGrid的设置
------------------------------------------------------------------------------
请教关于dxDBGrid的下述两个问题
A：怎样在DefaultFields=True正常打印
B：若预设dxDBGrid的DefaultFields=False，怎样在运行时动态加入栏位或组以及打印
注：(1)数据表(DataSource)连接TClientDataSet
(2)使用标题筛选Filter.Active=True
(3)加入TdxComponentPrinter并设置
若预设dxDBGrid的DefaultFields为True、edgoLoadAllRecords为True并加入KeyField值、设置上述(1)、(2)、(3)时，执行打印为空不能打印dxDbGrid内容
------------------------------------------------------------------------------
在使用中发现了一个问题：
有些时候，在grid中选中显示的数据（即光标定位的那一条记录）和数据源中当前的记录不匹配，而且出现这种情况随机的，应该和具体的属性设置没有关系。看看哪位兄台也遇上过类似的问题，麻烦赐教！
一、keyfield设置为唯一值字段
二、LoadAllRecords:=True
------------------------------------------------------------------------------
我在dxDBGrid中，在dxDBGrid1DQPZH列中的ONValidate事件中，怎样取得我刚输入的值，
我用dxDBGrid1DQPZH.Field.OldValue或dxDBGrid1DQPZH.Field.NewValue，均取得没修改
以前的值。
这个事件确实有问题，我的解决办法是在dxDbGrid的OnEdited中编程，代码如下
新值： dxDBGrid1.FocusedField.NewValue
旧值： dxDBGrid1.FocusedField.OldValue
来自：caodz, 时间：2002-3-1 16:06:00, ID：952000
在dxDBGrid1ChangeColumn事件中，写
X：=dxDBGrid1DQPZH.Field.TEXT
------------------------------------------------------------------------------
dxDBGrid怎样用代码动态增加列，
搞定了
with dxDBGrid1.CreateColumn(TdxDBGridButtonColumn) as TdxDBGridButtonColumn do
begin
FieldName := 'NAME';
end;
------------------------------------------------------------------------------
dxdbGrid的状态栏中的汇总结果，当添加新的记录的时候，不能刷新
怎么办？应该在那里再进行一次汇总调用？
将LoadAllRecord 设为true即可.
------------------------------------------------------------------------------
dxDBGrid的继承关系是：
TWinControl-->TCustomControl-->TCustomdxContainer -->TCustomdxTreeList-->TCustomdxDBTreeListControl
-->TCustomdxDBGrid-->TdxDBGrid
------------------------------------------------------------------------------
dxDBGrid如何固定某列不左右移动？
options下的egoColumnMoving设为false
------------------------------------------------------------------------------
如何知道当前DXDBGRID的行号和列号
列号和列名
dxDBGrid.FocusedNode.Index
dxDBGrid.FocusedColumn
如何为坐标为(2,3)行号和列号的DXDBGRID赋值?
DXDBGRID的内容是反映其关联的数据集的数据 取数据的话可以dxDBGrid.Items[2].Values[3] 但好象不能直接通过程序给它赋值（手工可以） 要用程序赋值只能对其数据集处理
给RecNo属性等于2的数据集的第2个字段赋
如在一个循环判断中
ADOTable1.First;
while not ADOTable1.Eof do
begin
if ADOTable1.RecNo = 2 then
ADOTable1['字段二'] := 'abc';
ADOTable1.Next;
end;
ADOTable1.RecNo :=2;{记录到第二行}
ADOTable1.Fields[2] :=?? {修改第三列}
------------------------------------------------------------------------------
dxDBGrid如何知道现在在哪一列？哪一个单元格？DBGrid有SelectedIndex，dxDBGrid是何相关属性？
dxDBGrid1.FocusedColumn
------------------------------------------------------------------------------
4000
dxDBGrid如何用回车键、代替Tab键来移动栏位
在form的keypress事件下添加如下代码就可以了：
if key=#13 then
if (activecontrol is tdbgrid ) then
begin
with tdbgrid(activecontrol) do
if selectedindex<(fieldcount-1) then
selectedindex:=selectedindex+1
else
selectedindex:=0;
end;
首先设置Form的KeyPreview属性为True
然后
在form的keypress事件下添加如下代码就可以了：
if key=#13 then
if (activecontrol is tdbgrid ) then
begin
with tdbgrid(activecontrol) do
if selectedindex<(fieldcount-1) then
selectedindex:=selectedindex+1
else
begin
dbgrid1.DataSource.DataSet.Next ;
selectedindex:=0;
end;
------------------------------------------------------------------------------
DxDBGrid的GroupPanel上面的英文[Drag a column header to group by that column]怎么可以改成中文？
源码包里有 RC 文件。 打开他。翻译成中文。 然后brcc32 -r *.rc 然后把生成RES 文件放到DELPHI的LIB PATH 中路径里就可以了
------------------------------------------------------------------------------
就是在任何一个单元格是双击后就可以知道那个单元在哪一个column(列)中，以运行不同的代码。
以前用DBGRID，可以在DBGrid1CellClick中获取该信息，但在DXDBGRID中如何做呢？而且我想要
双击时，不是单击的时候根据Index就可以取得Caption啊：
dxDBGrid1.FocusedNode.Strings[dxDBGrid1.FocusedColumn]
至于会不会变你试一下就行了，用上面的这句应该没有问题的。
------------------------------------------------------------------------------
dxDBgrid多选，遍历每条选中记录，将字段Name内容改为Str的内容
if InputQuery('刊物名称输入','请输入新的刊物名称：',Str) then
with dxDBGrid1.DataSource.DataSet do
begin
for I:=0 to dxDBGrid1.SelectedCount-1 do
begin
GoTobookmark(pointer(dxDBGrid1.SelectedRows[i]));
// Edit;
// FieldByName('Name').AsString := Str;
// Post;
end;
end;
到第二个循环的GoTobookmark(pointer(dxDBGrid1.SelectedRows[i]));就'List Index out of bounds(1)'。
以前得我都看了，好像没有改记录内容的。
for I:=0 to dxDBGrid1.SelectedCount-1 do
->for i := dxDBGrid1.SelectedCount - 1 downto 0 do
------------------------------------------------------------------------------
在DXDBGRID中，根据某字段的值而决定该行的颜色，类似DBGRID的DRAWDATACELL事件怎么写
第一个问在dxdbgrid中oncustomdrawcell事件写
if ASelected then afont.Color:=clred; //选中的栏的字体设为红色
scheck:=ANode.Values[dxDBGrid1status.Index]; //dxdbgrid1status为某一个指定字段
if not VarIsNull(scheck) then
if scheck = '1' then //这段为指定值的判定，如果为1把这一行定义为白颜色
AColor := clWhite
else
acolor:=clInfoBk;
------------------------------------------------------------------------------
在DXDBGRID控件中，有过滤功能，很方便。但现在却出现一问题，
如果我在程序中用过滤锁定一条记录后，如果重新关闭并激活数据源，
此时用QUERY.FIELDBYNAME('AAA').ASSTRING返回的结果不是激活数据源前的记录，
必须手工用鼠标指向其它行或列时才会返回光标指向的记录。如何解决？
首先你跟蹤看看﹐你關閉之前是不是鎖定就是你當前所要的記錄﹖
如果是把關鍵字段保存在一個變量里﹐然后用
很笨的方法﹐就是進行Talbe.locate('Field',變量,[]);
var
SavePlace: TBookmark;
PrevValue: Variant;
begin
with Table1 do
begin
{ get a bookmark so that we can return to the same record }
SavePlace := GetBookmark;
{ move to prior record}
FindPrior;
{ get the value }
PrevValue := Fields[0].Value;
{Move back to the bookmark}
GotoBookmark(SavePlace);
{ Set the value }
Fields[0].Value := PrevValue;
{ Free the bookmark }
FreeBookmark(SavePlace);
end;
end;
ok!:)
------------------------------------------------------------------------------
用过 dxDBGrid 的大侠看过来，拖动字段分组后，怎样将指定的组中的全部行选中 ( 积分：100, 回复：3, 阅读：42 )
分类：控件 - 使用 ( 版主：amo, cAkk )
比如：a,90;a,91;a92;b,80;b85 分组后成了
a
90
91
92
b
80
85
我想将 b 组的数据选中。
来自：wind_cloudy, 时间：2001-6-7 14:42:00, ID：557645
设置dxDbgrid的OptionsBehavior属性的edgoMultiSelect为true
设置dxDbgrid的OptionsView属性的edgoRowSelect为true
按住ctrl或shift键，用鼠标选择.
------------------------------------------------------------------------------
如何在DXDBGRID(DEV EXPRESS中的一个控件)中在列标题上出现排序的小箭头？
以上是DXDBGRID的帮助中有关排序的说明，也就是有两中方法去实现你的目的：
1. 设置OptionsBehavior.egoLoadAllRecords 和 OptionsDB.egoAutoSort属性为True 就可以，不过我试了一下，要指定KeyField属性的值才有效。
2. 在OnColumnClick事件中加入你的排序方法，以下是它的Demo中的代码：
with TdxDBGrid(Sender) do
begin
OldSorted := Column.Sorted;
if (GetAsyncKeyState(VK_SHIFT) = 0) then
TdxDBGrid(Sender).ClearColumnsSorted;
if OldSorted = csUp then
Column.Sorted := csDown
else
Column.Sorted := csUp;
with TQuery(DataSource.DataSet) do
begin
ID := FieldByName('ID').AsInteger;
DisableControls;
try
Close;
SQLOrderSt := '';
for i := 0 to SortedColumnCount - 1 do
begin
if SQLOrderSt <> '' then
SQLOrderSt := SQLOrderSt + ', ';
SQLOrderSt := SQLOrderSt + GetFieldName(SortedColumns[i]);
if SortedColumns[i].Sorted = csDown then
SQLOrderSt := SQLOrderSt + ' DESC';
end;
if SQLOrderSt <> '' then
SQLOrderSt := 'ORDER BY ' + SQLOrderSt;
SQL.Strings[SQL.Count - 1] := SQLOrderSt;
Open;
Locate('ID', ID, []);
finally
EnableControls;
end;
end;
end;
由此我们可看到它是用动态SQL语句重新ORDER BY记录了
举例：
procedure CreatedxGridColumn(dxGrid: TdxDBGrid);
var
I,J,K: integer;
C: TdxDBTreeListColumnClass;
lFieldInfo:TFieldDictInfo;
daqLookup:TQuery;
D:TdxDBGridPickColumn;
sLookField,sSQL:String;
lSQLParser:TSQLAnalysis;
function GetListColumnsClass(AField: TField;DataSet:TDataSet): TdxDBTreeListColumnClass;
var
lFieldInfo:TFieldDictInfo;
lSQLParser:TSQLAnalysis;
begin
lSQLParser:=TSQLAnalysis.Create;
lSQLParser.SQLString:=(DataSet as TQuery).SQL.Text;
try
if AField.FieldKind = fkLookup then
Result := TdxDBGridLookupColumn
else begin
if AField.FieldKind = fkData then begin
case AField.DataType of
ftBoolean : Result := TdxDBGridCheckColumn;
ftDate, ftDateTime : Result := TdxDBGridDateColumn;
ftTime : Result := TdxDBGridTimeColumn;
ftCurrency : Result := TdxDBGridCurrencyColumn;
ftGraphic : Result := TdxDBGridImageColumn;
ftBytes, ftVarBytes, ftBlob, ftMemo,
ftFmtMemo, ftParadoxOle, ftDBaseOle, ftTypedBinary :
Result := TdxDBGridBlobColumn;
else
lFieldInfo := DBDictInfo.FindFieldDictInfo(AField.FieldName,lSQLParser.Froms);
if (lFieldInfo.LookupTable <> '') and (not AField.ReadOnly) then Result := TdxDBGridPickColumn
else Result := TdxDBGridColumn;
end;
end else
Result := TdxDBGridMaskColumn;
end;
finally
lSQLParser.Free;
end;
end;
begin
if dxGrid.DataSource = nil then Exit;
if dxGrid.DataSource.DataSet.FieldCount < 1 then exit;
if dxGrid.KeyField = '' then
dxGrid.KeyField := dxGrid.DataSource.DataSet.Fields[0].FieldName;
for I := 0 to dxGrid.DataSource.DataSet.FieldCount - 1 do
begin
if not dxGrid.DataSource.DataSet.Fields[I].Visible then Continue;
//显示MEMO字段,Modified by Xufeng
// if (GetListColumnsClass(dxGrid.DataSource.DataSet.Fields[I],dxGrid.DataSource.DataSet) = TdxDBGridBlobColumn) then Continue;
C := TdxDBTreeListColumnClass(GetListColumnsClass(dxGrid.DataSource.DataSet.Fields[I],dxGrid.DataSource.DataSet));
if C <> nil then
begin
with dxGrid.CreateColumn(C) do
begin
FieldName := dxGrid.DataSource.DataSet.Fields[I].FieldName;
//判断是否从另一个表里取数据
if C = TdxDBGridPickColumn then
begin
D := TdxDBGridPickColumn(dxGrid.ColumnByFieldName(dxGrid.DataSource.DataSet.Fields[I].FieldName));
lSQLParser:=TSQLAnalysis.Create;
lSQLParser.SQLString:=(dxGrid.DataSource.DataSet as TQuery).SQL.Text;
try
lFieldInfo := DBDictInfo.FindFieldDictInfo(dxGrid.DataSource.DataSet.Fields[i].FieldName,lSQLParser.Froms);
if lFieldInfo.LookupTable <> '' then
begin
daqLookup := TQuery.Create(nil);
try
K := Pos(';',lFieldInfo.LookupFieldsString);
if K=0 then sLookField := lFieldInfo.LookupFieldsString
else sLookField := Copy(lFieldInfo.LookupFieldsString,1,K-1);
sSQL := 'Select ' + sLookField + ' from ' + lFieldInfo.LookupTable;
if lFieldInfo.RangeField <> '' then sSQL := sSQL + ' where ' + lFieldInfo.RangeField + '=''' + lFieldInfo.RangeValue + '''';
daqLookup.SQL.Add(sSQL);
daqLookup.DatabaseName := GlobalInfos.DataBaseName;
daqLookup.Open;
for J := 1 to daqLookup.RecordCount do begin
D.Items.Add(daqLookup.FieldByName(sLookField).AsString);
daqLookup.Next;
end;
finally
daqLookup.Free;
end;
end;
finally
lSQLParser.Free;
end;
end;
end;
end;
end;
end;
------------------------------------------------------------------------------
DxDBGrid中哪个属性等价于DbGrid的”ReadOnly”属性.如果没有应该怎样设置
OptionBehavior中Edgoediting 设成False
或者将Optionview中的edgorowselect 设成true
只能使用分组:如按a1,a2,a3,a4排序
先按a1分组,再a2,再a3
然后设置a4的排列(升/降)
二、如何设定左边几列，不能滚动?
建立Band0,Band1
Band0的Fixed=tfLeft
Band1的Fixed=tfnone
设置要锁定的字段的BandIndex=0,其它为1
三、如何访问，显示字段的对象，控制其可视与不可视？
参看自带例程RunTimeCustomizing.dpr
四、既然不能用readonly,那我用edgoEditing属性对吗?
要想ReadOnly=True.我用edgoRowSelected=True;
DXGRID 设计排序和统计的关键前提是先指定 DXGRID 的KEY FIELD字段 然后设置它的 edgoAnsi Sort属性 为TRUE 就可以了.随便点任意字段都可以排序,如果还需要显示合计的话。 需要将edgoLoadAllRecords 设置为 True.
整理ExpressQuantumGrid控件心得如下：
针对TdxDBGrid仅仅设置一些属性，就可以到达很好的效果：
前提：先设置DataSource、ADODataSet、以及TdxDBGrid的属性后，设置ADODataSet的Active＝true；然后才能在TdxDBGrid中的鼠标右键－>
column-> Add all Fields； 注意：一定要设置TdxDBGrid控件的属性keyField、并设置OptionsDB中edgoLoadAllRecord＝true 。
1、显示脚注栏： 设置属性showSummeryFooter＝true即可。
2、显示某一列的汇总值（或总个数）： 设置summaryFooterType，为cstSum（或cstAvg）、并设置summaryFormat，即可。
3、设置Filter：在TdxDBGrid属性中Filter组中Active＝true。
4、设置Sort：在OptionsBehavior中设置 ：edgoAutoSort＝true。
5、设置汉字提示：在column中->SummaryFormat中输入样式，如：（数量＝0.00）
6、summary样式，一共分为三种：
（1）summary：用于行的总体说明GroupNode类型。
（2）summaryFooter：在整个Grid的底部footer处显示。
（3）summaryRowFooter：在每个行的底部显示信息。（行，是几条记录形成的小组）。
------------------------------------------------------------------------------
在DELPHI的标准控件中很容易的用
grid.columns.add就可以加如一个列，但在DX控件中却不支持。
dxDBGrid1.CreateColumn(TdxDBGridMaskColumn);//TdxDBGridMaskColumn，列类型
dxDBGrid1.Columns[4].FieldName := 'City';//4列索引，City字段名称
在keyup事件中，dbgShare.Fields[4].AsFloat:=
dbgShare.Fields[1].AsFloat*
dbgShare.Fields[2].AsFloat*
dbgShare.Fields[3].AsFloat;
这样的话等输完它又变回去了，如果用Post先提交，那样的话整个输入又获得了焦点，继续输的时候又把输好的给覆盖了，总之很不爽，大家可以试试。而在其他事件中，又不是实时变化。
来自：glbboy, 时间：2002-2-1 18:27:00, ID：901471
在DBGRID事件BeforeScroll、ColExit两个事件中都加如下代码实现了汇总。
qryShare.Edit;
qryShare.Fields[4].AsCurrency:=qryShare.Fields[1].AsCurrency*
qryShare.Fields[2].AsCurrency*qryShare.Fields[3].AsCurrency;
qryShare.Post;
但有一点不好，就是对数据库操作太多了。：）
计算字段？有这个数据类型吗？说详细点OK！最好是给具体简单一点的代码！
with DXDBGRID1.CreateColumn(TdxDBGridMaskColumn) as TdxDBGridMaskColumn do
begin
FieldName := ClientDataSet3.Fields[Ifieldcount].FieldName;
HeaderAlignment := taCenter;
Width := 90;
------------------------------------------------------------------------------
SaveToIni可以保存dxDBGrid的设置
------------------------------------------------------------------------------
请教关于dxDBGrid的下述两个问题
A：怎样在DefaultFields=True正常打印
B：若预设dxDBGrid的DefaultFields=False，怎样在运行时动态加入栏位或组以及打印
注：(1)数据表(DataSource)连接TClientDataSet
(2)使用标题筛选Filter.Active=True
(3)加入TdxComponentPrinter并设置
若预设dxDBGrid的DefaultFields为True、edgoLoadAllRecords为True并加入KeyField值、设置上述(1)、(2)、(3)时，执行打印为空不能打印dxDbGrid内容
------------------------------------------------------------------------------
在使用中发现了一个问题：
有些时候，在grid中选中显示的数据（即光标定位的那一条记录）和数据源中当前的记录不匹配，而且出现这种情况随机的，应该和具体的属性设置没有关系。看看哪位兄台也遇上过类似的问题，麻烦赐教！
一、keyfield设置为唯一值字段
二、LoadAllRecords:=True
------------------------------------------------------------------------------
我在dxDBGrid中，在dxDBGrid1DQPZH列中的ONValidate事件中，怎样取得我刚输入的值，
我用dxDBGrid1DQPZH.Field.OldValue或dxDBGrid1DQPZH.Field.NewValue，均取得没修改
以前的值。
这个事件确实有问题，我的解决办法是在dxDbGrid的OnEdited中编程，代码如下
新值： dxDBGrid1.FocusedField.NewValue
旧值： dxDBGrid1.FocusedField.OldValue
来自：caodz, 时间：2002-3-1 16:06:00, ID：952000
在dxDBGrid1ChangeColumn事件中，写
X：=dxDBGrid1DQPZH.Field.TEXT
------------------------------------------------------------------------------
dxDBGrid怎样用代码动态增加列，
搞定了
with dxDBGrid1.CreateColumn(TdxDBGridButtonColumn) as TdxDBGridButtonColumn do
begin
FieldName := 'NAME';
end;
------------------------------------------------------------------------------
dxdbGrid的状态栏中的汇总结果，当添加新的记录的时候，不能刷新
怎么办？应该在那里再进行一次汇总调用？
将LoadAllRecord 设为true即可.
------------------------------------------------------------------------------
dxDBGrid的继承关系是：
TWinControl-->TCustomControl-->TCustomdxContainer -->TCustomdxTreeList-->TCustomdxDBTreeListControl
-->TCustomdxDBGrid-->TdxDBGrid
------------------------------------------------------------------------------
dxDBGrid如何固定某列不左右移动？
options下的egoColumnMoving设为false
------------------------------------------------------------------------------
如何知道当前DXDBGRID的行号和列号
列号和列名
dxDBGrid.FocusedNode.Index
dxDBGrid.FocusedColumn
如何为坐标为(2,3)行号和列号的DXDBGRID赋值?
DXDBGRID的内容是反映其关联的数据集的数据 取数据的话可以dxDBGrid.Items[2].Values[3] 但好象不能直接通过程序给它赋值（手工可以） 要用程序赋值只能对其数据集处理
给RecNo属性等于2的数据集的第2个字段赋
如在一个循环判断中
ADOTable1.First;
while not ADOTable1.Eof do
begin
if ADOTable1.RecNo = 2 then
ADOTable1['字段二'] := 'abc';
ADOTable1.Next;
end;
ADOTable1.RecNo :=2;{记录到第二行}
ADOTable1.Fields[2] :=?? {修改第三列}
------------------------------------------------------------------------------
dxDBGrid如何知道现在在哪一列？哪一个单元格？DBGrid有SelectedIndex，dxDBGrid是何相关属性？
dxDBGrid1.FocusedColumn
------------------------------------------------------------------------------
4000
dxDBGrid如何用回车键、代替Tab键来移动栏位
在form的keypress事件下添加如下代码就可以了：
if key=#13 then
if (activecontrol is tdbgrid ) then
begin
with tdbgrid(activecontrol) do
if selectedindex<(fieldcount-1) then
selectedindex:=selectedindex+1
else
selectedindex:=0;
end;
首先设置Form的KeyPreview属性为True
然后
在form的keypress事件下添加如下代码就可以了：
if key=#13 then
if (activecontrol is tdbgrid ) then
begin
with tdbgrid(activecontrol) do
if selectedindex<(fieldcount-1) then
selectedindex:=selectedindex+1
else
begin
dbgrid1.DataSource.DataSet.Next ;
selectedindex:=0;
end;
------------------------------------------------------------------------------
DxDBGrid的GroupPanel上面的英文[Drag a column header to group by that column]怎么可以改成中文？
源码包里有 RC 文件。 打开他。翻译成中文。 然后brcc32 -r *.rc 然后把生成RES 文件放到DELPHI的LIB PATH 中路径里就可以了
------------------------------------------------------------------------------
就是在任何一个单元格是双击后就可以知道那个单元在哪一个column(列)中，以运行不同的代码。
以前用DBGRID，可以在DBGrid1CellClick中获取该信息，但在DXDBGRID中如何做呢？而且我想要
双击时，不是单击的时候根据Index就可以取得Caption啊：
dxDBGrid1.FocusedNode.Strings[dxDBGrid1.FocusedColumn]
至于会不会变你试一下就行了，用上面的这句应该没有问题的。
------------------------------------------------------------------------------
dxDBgrid多选，遍历每条选中记录，将字段Name内容改为Str的内容
if InputQuery('刊物名称输入','请输入新的刊物名称：',Str) then
with dxDBGrid1.DataSource.DataSet do
begin
for I:=0 to dxDBGrid1.SelectedCount-1 do
begin
GoTobookmark(pointer(dxDBGrid1.SelectedRows[i]));
// Edit;
// FieldByName('Name').AsString := Str;
// Post;
end;
end;
到第二个循环的GoTobookmark(pointer(dxDBGrid1.SelectedRows[i]));就'List Index out of bounds(1)'。
以前得我都看了，好像没有改记录内容的。
for I:=0 to dxDBGrid1.SelectedCount-1 do
->for i := dxDBGrid1.SelectedCount - 1 downto 0 do
------------------------------------------------------------------------------
在DXDBGRID中，根据某字段的值而决定该行的颜色，类似DBGRID的DRAWDATACELL事件怎么写
第一个问在dxdbgrid中oncustomdrawcell事件写
if ASelected then afont.Color:=clred; //选中的栏的字体设为红色
scheck:=ANode.Values[dxDBGrid1status.Index]; //dxdbgrid1status为某一个指定字段
if not VarIsNull(scheck) then
if scheck = '1' then //这段为指定值的判定，如果为1把这一行定义为白颜色
AColor := clWhite
else
acolor:=clInfoBk;
------------------------------------------------------------------------------
在DXDBGRID控件中，有过滤功能，很方便。但现在却出现一问题，
如果我在程序中用过滤锁定一条记录后，如果重新关闭并激活数据源，
此时用QUERY.FIELDBYNAME('AAA').ASSTRING返回的结果不是激活数据源前的记录，
必须手工用鼠标指向其它行或列时才会返回光标指向的记录。如何解决？
首先你跟蹤看看﹐你關閉之前是不是鎖定就是你當前所要的記錄﹖
如果是把關鍵字段保存在一個變量里﹐然后用
很笨的方法﹐就是進行Talbe.locate('Field',變量,[]);
var
SavePlace: TBookmark;
PrevValue: Variant;
begin
with Table1 do
begin
{ get a bookmark so that we can return to the same record }
SavePlace := GetBookmark;
{ move to prior record}
FindPrior;
{ get the value }
PrevValue := Fields[0].Value;
{Move back to the bookmark}
GotoBookmark(SavePlace);
{ Set the value }
Fields[0].Value := PrevValue;
{ Free the bookmark }
FreeBookmark(SavePlace);
end;
end;
ok!:)
------------------------------------------------------------------------------
用过 dxDBGrid 的大侠看过来，拖动字段分组后，怎样将指定的组中的全部行选中 ( 积分：100, 回复：3, 阅读：42 )
分类：控件 - 使用 ( 版主：amo, cAkk )
比如：a,90;a,91;a92;b,80;b85 分组后成了
a
90
91
92
b
80
85
我想将 b 组的数据选中。
来自：wind_cloudy, 时间：2001-6-7 14:42:00, ID：557645
设置dxDbgrid的OptionsBehavior属性的edgoMultiSelect为true
设置dxDbgrid的OptionsView属性的edgoRowSelect为true
按住ctrl或shift键，用鼠标选择.
------------------------------------------------------------------------------
如何在DXDBGRID(DEV EXPRESS中的一个控件)中在列标题上出现排序的小箭头？
以上是DXDBGRID的帮助中有关排序的说明，也就是有两中方法去实现你的目的：
1. 设置OptionsBehavior.egoLoadAllRecords 和 OptionsDB.egoAutoSort属性为True 就可以，不过我试了一下，要指定KeyField属性的值才有效。
2. 在OnColumnClick事件中加入你的排序方法，以下是它的Demo中的代码：
with TdxDBGrid(Sender) do
begin
OldSorted := Column.Sorted;
if (GetAsyncKeyState(VK_SHIFT) = 0) then
TdxDBGrid(Sender).ClearColumnsSorted;
if OldSorted = csUp then
Column.Sorted := csDown
else
Column.Sorted := csUp;
with TQuery(DataSource.DataSet) do
begin
ID := FieldByName('ID').AsInteger;
DisableControls;
try
Close;
SQLOrderSt := '';
for i := 0 to SortedColumnCount - 1 do
begin
if SQLOrderSt <> '' then
SQLOrderSt := SQLOrderSt + ', ';
SQLOrderSt := SQLOrderSt + GetFieldName(SortedColumns[i]);
if SortedColumns[i].Sorted = csDown then
SQLOrderSt := SQLOrderSt + ' DESC';
end;
if SQLOrderSt <> '' then
SQLOrderSt := 'ORDER BY ' + SQLOrderSt;
SQL.Strings[SQL.Count - 1] := SQLOrderSt;
Open;
Locate('ID', ID, []);
finally
EnableControls;
end;
end;
end;
由此我们可看到它是用动态SQL语句重新ORDER BY记录了
举例：
procedure CreatedxGridColumn(dxGrid: TdxDBGrid);
var
I,J,K: integer;
C: TdxDBTreeListColumnClass;
lFieldInfo:TFieldDictInfo;
daqLookup:TQuery;
D:TdxDBGridPickColumn;
sLookField,sSQL:String;
lSQLParser:TSQLAnalysis;
function GetListColumnsClass(AField: TField;DataSet:TDataSet): TdxDBTreeListColumnClass;
var
lFieldInfo:TFieldDictInfo;
lSQLParser:TSQLAnalysis;
begin
lSQLParser:=TSQLAnalysis.Create;
lSQLParser.SQLString:=(DataSet as TQuery).SQL.Text;
try
if AField.FieldKind = fkLookup then
Result := TdxDBGridLookupColumn
else begin
if AField.FieldKind = fkData then begin
case AField.DataType of
ftBoolean : Result := TdxDBGridCheckColumn;
ftDate, ftDateTime : Result := TdxDBGridDateColumn;
ftTime : Result := TdxDBGridTimeColumn;
ftCurrency : Result := TdxDBGridCurrencyColumn;
ftGraphic : Result := TdxDBGridImageColumn;
ftBytes, ftVarBytes, ftBlob, ftMemo,
ftFmtMemo, ftParadoxOle, ftDBaseOle, ftTypedBinary :
Result := TdxDBGridBlobColumn;
else
lFieldInfo := DBDictInfo.FindFieldDictInfo(AField.FieldName,lSQLParser.Froms);
if (lFieldInfo.LookupTable <> '') and (not AField.ReadOnly) then Result := TdxDBGridPickColumn
else Result := TdxDBGridColumn;
end;
end else
Result := TdxDBGridMaskColumn;
end;
finally
lSQLParser.Free;
end;
end;
begin
if dxGrid.DataSource = nil then Exit;
if dxGrid.DataSource.DataSet.FieldCount < 1 then exit;
if dxGrid.KeyField = '' then
dxGrid.KeyField := dxGrid.DataSource.DataSet.Fields[0].FieldName;
for I := 0 to dxGrid.DataSource.DataSet.FieldCount - 1 do
begin
if not dxGrid.DataSource.DataSet.Fields[I].Visible then Continue;
//显示MEMO字段,Modified by Xufeng
// if (GetListColumnsClass(dxGrid.DataSource.DataSet.Fields[I],dxGrid.DataSource.DataSet) = TdxDBGridBlobColumn) then Continue;
C := TdxDBTreeListColumnClass(GetListColumnsClass(dxGrid.DataSource.DataSet.Fields[I],dxGrid.DataSource.DataSet));
if C <> nil then
begin
with dxGrid.CreateColumn(C) do
begin
FieldName := dxGrid.DataSource.DataSet.Fields[I].FieldName;
//判断是否从另一个表里取数据
if C = TdxDBGridPickColumn then
begin
D := TdxDBGridPickColumn(dxGrid.ColumnByFieldName(dxGrid.DataSource.DataSet.Fields[I].FieldName));
lSQLParser:=TSQLAnalysis.Create;
lSQLParser.SQLString:=(dxGrid.DataSource.DataSet as TQuery).SQL.Text;
try
lFieldInfo := DBDictInfo.FindFieldDictInfo(dxGrid.DataSource.DataSet.Fields[i].FieldName,lSQLParser.Froms);
if lFieldInfo.LookupTable <> '' then
begin
daqLookup := TQuery.Create(nil);
try
K := Pos(';',lFieldInfo.LookupFieldsString);
if K=0 then sLookField := lFieldInfo.LookupFieldsString
else sLookField := Copy(lFieldInfo.LookupFieldsString,1,K-1);
sSQL := 'Select ' + sLookField + ' from ' + lFieldInfo.LookupTable;
if lFieldInfo.RangeField <> '' then sSQL := sSQL + ' where ' + lFieldInfo.RangeField + '=''' + lFieldInfo.RangeValue + '''';
daqLookup.SQL.Add(sSQL);
daqLookup.DatabaseName := GlobalInfos.DataBaseName;
daqLookup.Open;
for J := 1 to daqLookup.RecordCount do begin
D.Items.Add(daqLookup.FieldByName(sLookField).AsString);
daqLookup.Next;
end;
finally
daqLookup.Free;
end;
end;
finally
lSQLParser.Free;
end;
end;
end;
end;
end;
end;
------------------------------------------------------------------------------
DxDBGrid中哪个属性等价于DbGrid的”ReadOnly”属性.如果没有应该怎样设置
OptionBehavior中Edgoediting 设成False
或者将Optionview中的edgorowselect 设成true
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- delphi中XLSReadWrite控件的使用(1)---简介
- [转载]: delphi中XLSReadWrite控件的使用(1)---简介
- 使用delphi 开发 web（一） webbroke 简介
- Devexpress V40 在Delphi2009中 DBGrid 使用Search功能时文本选择从右至左问题解决
- Delphi 同时使用 dbgrid ,dbgrideh 的冲突
- Delphi中的DBGrid如何实现使用鼠标滚轮上下滚动
- delphi中的dbgrid使用
- dbgrid使用大全(delphi)
- delphi中XLSReadWrite控件的使用(1)---简介
- Delphi 与 DirectX 之 DelphiX(6): 让 TDXImageList 和常规 VCL 交互使用
- 转Delphi中XLSReadWrite控件的使用(1)---简介
- delphi DBgrid 使用大全
- delphi dxDBGrid使用集锦
- Delphi DBGrid使用大全
- Google-S2 空间索引框架简介及部分API使用示例
- SQLite3简介及在.Net程序中的使用
- delphi中Time消息的使用方法
- 机器学习 101 Mahout 简介 建立一个推荐引擎 使用 Mahout 实现集群 使用 Mahout 实现内容分类 结束语 下载资源
- 在DELPHI中使用ADO直接访问Excel数据文件
- lingpipe使用方法简介