重赏之下必有勇夫。谁会做1000分,以发的例子为准。(300分)

邓娟

Unregistered / Unconfirmed
GUEST, unregistred user!
如何用DevExpress ExpressQuantumGrid制作出这样的效果的表头吗:
---------------------|
A |
---------------------|
B | |
----------- C |
D | E | |
---------------------|
字段1|字段2| 字段3 |
 
EHLIB 可以,ExpressQuantumGrid还没试过
 
提前有分。
 
EH是可以呀,但是一定要用DX控件。
 
你的意思是分明细表格啊
它好像有demo的,你看看
 
废话少说,给例子为证。
 

DEMO中只能实现如下的效果:
object dxDBGrid1: TdxDBGrid
Tag = 4
Left = 0
Top = 0
Width = 688
Height = 453
BandRowCount = 2
Bands = <
item
Caption = 'Company Information'
Width = 235
end
item
Caption = 'Address Information'
Width = 450
end
item
Caption = 'Other'
Width = 174
end>
DefaultLayout = False
HeaderPanelRowCount = 2
KeyField = 'CustNo'
ShowGroupPanel = True
SummaryGroups = <>
SummarySeparator = ', '
Align = alClient
TabOrder = 0
Filter.Criteria = {00000000}
LookAndFeel = lfFlat
OptionsBehavior = [edgoAutoSort, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
OptionsCustomize = [edgoBandMoving, edgoBandSizing, edgoColumnMoving, edgoColumnSizing, edgoHeaderPanelSizing]
OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
OptionsView = [edgoAutoWidth, edgoBandHeaderWidth, edgoUseBitmap]
ShowBands = True
object dxDBGrid1Name: TdxDBGridColumn
HeaderGlyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAFFFAAAAAAAAAAAAAF0FAAAAAAAAAAAAAF0FAAA
AAAAAAAAAF0FAAAAAAAAAAAAAF0FAAAAAAAAAAAAF090FFAAAAAAAAAAF09100FA
AAAAAAAF0911910FAAAAAAAF09191110FAAAAAF0900910000FAAAAF00FF00FFF
FFAAAAFFFAAFFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA}
Sorted = csUp
BandIndex = 0
RowIndex = 0
FieldName = 'CustNo'
end
object dxDBGrid1Company: TdxDBGridColumn
Caption = 'Company Name'
Width = 235
BandIndex = 0
RowIndex = 1
FieldName = 'Company'
StoredRowIndex = 1
end
object dxDBGrid1Address: TdxDBGridColumn
Tag = 1
Caption = 'Address'
Width = 450
BandIndex = 1
RowIndex = 0
FieldName = 'Addr1'
end
object dxDBGrid1City: TdxDBGridColumn
Tag = 1
Width = 107
BandIndex = 1
RowIndex = 1
FieldName = 'City'
StoredRowIndex = 1
end
object dxDBGrid1State: TdxDBGridColumn
Tag = 1
Width = 105
BandIndex = 1
RowIndex = 1
FieldName = 'State'
StoredRowIndex = 1
end
object dxDBGrid1Fax: TdxDBGridColumn
Caption = 'Fax'
Width = 174
BandIndex = 2
RowIndex = 0
FieldName = 'FAX'
end
object dxDBGrid1Country: TdxDBGridColumn
Tag = 1
Width = 124
BandIndex = 1
RowIndex = 1
FieldName = 'Country'
StoredRowIndex = 1
end
object dxDBGrid1Phone: TdxDBGridColumn
Width = 174
BandIndex = 2
RowIndex = 1
FieldName = 'Phone'
StoredRowIndex = 1
end
object dxDBGrid1Zip: TdxDBGridColumn
Tag = 1
Width = 114
BandIndex = 1
RowIndex = 1
FieldName = 'Zip'
StoredRowIndex = 1
end
end
 
骗分呀。
 
不欢迎骗分。
 
邓娟,有气质哦
 
哈哈,提前
 
用 Delphi 的 DBGrid 实现可以吗?
 
好像不行,EHLIB 应该可以。
 
用 Delphi 自带的 DBGrid
简单:
在 ClientDataSet 的 FieldDefs 里面定义一字段例如是
ClientDataSet2Field1 的 DataType 设置为 ftADT
然后在
ClientDataSet2Field1
的 ChildDefs 里面继续定义它的子项
ClientDataSet1Field1Field1 DataType 为 ftString
ClientDataSet1Field1Field1 DataType 为 ftInteger
在 ClientDataSet 上右键 CreateDataSet
在 ClientDataSet 上右键 Fields Edtor... Ctrl + A
拖个 DBGrid 看看,你就明白了
 
等!!!!!!!!
 
我也想学学,所以只能帮你提前了
 
好像只能做两层的band
三层就不行了
 
动态创建,还是显示数据!
 
真是怪了,为什么现在总是看不到别人的回复?
如果重复了岂不是浪费空间
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
885
DelphiTeacher的专栏
D
顶部