| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3279373
建立时间:2005年6月6日 |
| |
|
 [delpih编程]dbgrideh的过滤stfilter设置与程序
软件技术
吕向阳 发表于 2009/6/14 11:15:32 |
| 1.设dbgrideh表格的sffilter的全部子项为 true2.双击dbgrideh增加column，分别设置其field属性，关键是下面的：对每个要进行过滤的column ,设置其相应的datafiled ,keyfield3.在dbgrideh的ApplyFilter事件中加入以下代码，代码按你的库去改写procedure Tformgl.DBGrid2ApplyFilter(Sender: TObject);beginwith (Sender as TDBGridEh) dobeginDataSource.DataSet.Filtered := False;DBGrid2.Columns[2].STFilter.KeyField := 'km';DataSource.DataSet.Filter := 'true';if Columns[2].STFilter.ExpressionStr <> '' thenDataSource.DataSet.Filter := DataSource.DataSet.Filter + ' and (' +Columns[2].STFilter.DataField +'=' + #39 +Columns[2].STFilter.ExpressionStr+ #39+')';DBGrid2.Columns[3].STFilter.KeyField := 'zjid';if Columns[3].STFilter.ExpressionStr <> '' thenDataSource.DataSet.Filter := DataSource.DataSet.Filter + ' and (' +Columns[3].STFilter.DataField + '=' + #39 +Columns[3].STFilter.ExpressionStr + #39+')';DataSource.DataSet.Filter := stringreplace(DataSource.DataSet.Filter, 'true and ', '',[]);DataSource.DataSet.Filtered := True;end;end; |
|
|