升序非常简单
ClientDataSet.IndexFieldNames:='xxxxxx'
~~~~~~~~指定的字段名至于降序,我看了下ClientDataSet源码. 在SetIndexFieldNames中
代码被写死了成升序方式.(BORLAND程序员看来有时候也想偷懒)
看来只得继承这个TClientDataSet,使用它的私有方法SortOnFields
ClientDataSet.IndexFieldNames:='xxxxxx'
~~~~~~~~指定的字段名至于降序,我看了下ClientDataSet源码. 在SetIndexFieldNames中
代码被写死了成升序方式.(BORLAND程序员看来有时候也想偷懒)
看来只得继承这个TClientDataSet,使用它的私有方法SortOnFields
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货