如何求得最新价格？如何在DBEDIT中显示出产品的最新价格，和平均价格

简化为：如何比较某字段日期（RQ）与当前时间最接近。

求出字段中最大日期，便是与NOW相接近的 max(days(rq))    风花雪月 e梦情缘

------
风花雪月 e梦情缘

引言: 简化为：如何比较某字段日期（RQ）与当前时间最接近。

可以利用這樣的語法(MSSQL): select top 1 * from table order by getdate() - RQ

是这样的，我想比较出某产品的最新价格，现在字段（DANJIA单价），（RQ日期），如何用SQL语句做判断，并在DBEDIT中显示出来。谢谢各前辈！小弟敬上。

是这样的，我想比较出某产品的最新价格，现在字段（DANJIA单价），（RQ日期），如何用SQL语句做判断，并在DBEDIT中显示出来。谢谢各前辈！小弟敬上。 1.取第一条就是的了 select 产品,最新价格,RQ日期 FORM TABLE where 产品=??? order by RQ日期 desc    2.找出最新的的日期 select 产品,最新价格,MAX（DAYS（RQ日期））FORM TABLE  where 产品=???     3.复杂的SQL找出 SELECT 产品,最新价格,RQ日期 FORM TABLE  WHERE RQ日期>ALL (SELECT RQ日期 FORM TABLE  WHERE 产品=??? ) AND 产品=???         风花雪月 e梦情缘

------
风花雪月 e梦情缘

先說明你用何種資料庫, 可能比較快得到答案喔.

我用的是DB表，我的情况为：我已经用了一个SQL查询，显示在DBGRID上，现想在显示的DBGRID表（包含有日期，单价，数量）中，提取出最新价格和平均价格，然后在另一控件DBEDIT中显示出来 。在字段中没有用到最新价格。 另：我现在有4个DB表，表中有着不同的内容：A中有编码，单价，日期。。。，等；B中有编码，单价，数量。。。。，其他表类似也有这些，但各表中的编码互相穿插，有相同的，也有不相同的，其他各字段也没有统一的相同的项。如何把这几个表统一起来。在DBGRID表中显示编码，单价，数量，日期等。

请问各表之间有关联条件吗？是什么？ 你上面的问题好象很含糊，请说明你的重点。并提供一个你想象的样式。    风花雪月 e梦情缘

------
风花雪月 e梦情缘

表中除了有几个相同的字段名外，其他信息都是有点穿插，比如A表中包含有B表中的一些数据，而B表中也同样有A表的内容。 前辈，前面的问题，如何可以解决呢，现我在DBGRID中显示了我查询的内容，我想在另一控件DBEDIT中显示DBGRID（有字段价格，数量，日期）中的最新价格，还有平均价格。

你可以把你自己寫的SQL語法程式碼貼上來嗎??我想這樣其他人比較好幫你看喔

引言: 表中除了有几个相同的字段名外，其他信息都是有点穿插，比如A表中包含有B表中的一些数据，而B表中也同样有A表的内容。 前辈，前面的问题，如何可以解决呢，现我在DBGRID中显示了我查询的内容，我想在另一控件DBEDIT中显示DBGRID（有字段价格，数量，日期）中的最新价格，还有平均价格。

//显示在DBGRID的SQL查询 with recordQuery do begin close; sql.Clear; sql.Add('SELECT a.bianma（编码）,a.mingcheng（名称）,a.daihao（代号）,a.jzrq（日期）,a.danjia（单价）,a.ckm,a.jzdh '); sql.add('FROM "' dblj 'cwjbmxz"a'); sql.Add(wcj);//wcj:wcj:='where bianma like"' bm '%"'; sql.Add('and danjia<>0'); sql.add('and jzrq BETWEEN "' result1 '" AND "' result2 '"');//result1，2:是一个DateTimePicker时间 sql.add('order by bianma'); open; end; 现我另有二个控件DEBEIT1，2。Q：点击DBGRID表的某一产品时，在DBEDIT1，2中显示出最新价格，和平均价格

1.jzrq是你的日期欄位吧??型態ㄋ?? 2.你一開始的問題是.. <如何求得最新价格？如何在DBEDIT中显示出产品的最新价格，和平均价格> 請問一下..你要在什麼時機顯示出你要的??新增?存檔??或是ButtonClickㄋ??

jzrq是DATE类型。 我想在recordQueryAfterScroll的时候（在DBGRID滑动时）显示出来， 小弟愚钝，让各前辈费心了。谢谢。

想了一想,你這樣好像有點怪怪的,可以把程式跟Table上傳嗎??

引言: jzrq是DATE类型。 我想在recordQueryAfterScroll的时候（在DBGRID滑动时）显示出来， 小弟愚钝，让各前辈费心了。谢谢。

要另外用 Query 做 NewPriceQuery : 最新價錢，連接 DBEdit1 若你也想看日期，可連 jzrq 也 select AvgPriceQuery : 平均價錢，連接 DBEdit2 在 recordQueryAfterScroll 事件設定 : NewPriceQuery.Active := false; NewPriceQuery.SQL := 'Select danjia from "' dblj 'cwjbmxz" where bianma = :bianma order by jzrq desc'; NewPriceQuery.ParamByName('bianma') := recordQuery.FieldByName('bianma').AsString; NewPriceQuery.Active := true; AvgPriceQuery.Active := false; AvgPriceQuery.SQL := 'Select AVG(danjia) from "' dblj 'cwjbmxz" where bianma = :bianma'; AvgPriceQuery.ParamByName('bianma') := recordQuery.FieldByName('bianma').AsString; AvgPriceQuery.Active := true;

前辈，好像不行，有提示说，TString与String冲突。 还望前辈说详细点，我好菜

只是幫 Justmade 大大補些漏打的字, 希望 diety 問題早日解決.

引言: NewPriceQuery.Active := false; NewPriceQuery.SQL.Text := 'Select danjia from "' dblj 'cwjbmxz" where bianma = :bianma order by jzrq desc'; NewPriceQuery.ParamByName('bianma').AsString := recordQuery.FieldByName('bianma').AsString; NewPriceQuery.Active := true; AvgPriceQuery.Active := false; AvgPriceQuery.SQL.Text := 'Select AVG(danjia) from "' dblj 'cwjbmxz" where bianma = :bianma'; AvgPriceQuery.ParamByName('bianma').AsString := recordQuery.FieldByName('bianma').AsString; AvgPriceQuery.Active := true;

哈哈哈 我超多筆誤的說 太倚賴 debugger 啦 反正我寫程式都是 Run 時跳出一大堆 Error 然後 數分鐘修正所有錯誤，對我來說這比花多數十分鐘寫少錯誤的程式碼有效率 但 post 出來對方若也是有經驗的當然可輕鬆解決這些筆誤，但對於初學者是真的會帶來不便，對不起啦。 也謝謝 Micky 兄和 別的高手幫忙指正。

前辈，又如何在DBEdit中显示出最新价格呢？

每個 query 都要做一個 datasources 來連接 DBEdit1.DataSources : NewPriceDS DBEdit1.Field : danjia NewPriceDS.DataSet : NewPriceQuery AvgPriceQuery 也是相類的設定

前辈，会有提示： NewPriceQuery：Parameter'bianma'not found

另附： procedure TfindForm.recordQueryAfterScroll(DataSet: TDataSet); begin chengbQuery.Active := false; chengbQuery.SQL.Text := 'Select danjia from "' dblj 'cwjbmxz" where bianma =: bianma order by jzrq desc'; chengbQuery.ParamByName('bianma').AsString :=recordQuery.FieldByName('bianma').AsString; chengbQuery.Active := true; with recordQuery do begin bmEdit.Text :=recordQuery.fieldbyname('bianma').AsString ; mcEdit.Text :=recordQuery.fieldbyname('mingcheng').AsString ; ckEdit.Text :=recordQuery.fieldbyname('ckm').AsString ; rkdhedit.Text :=recordQuery.fieldbyname('jzdh').AsString ; end; end; 其中 recordQuery 是记录查询，显示在DBGrid中； chengbQuery 是最新价格查询，显示在DBEdit中。

引言: 另附： procedure TfindForm.recordQueryAfterScroll(DataSet: TDataSet); begin chengbQuery.Active := false; chengbQuery.SQL.Text := 'Select danjia from "' dblj 'cwjbmxz" where bianma = :bianma order by jzrq desc'; chengbQuery.ParamByName('bianma').AsString :=recordQuery.FieldByName('bianma').AsString; chengbQuery.Active := true; with recordQuery do begin bmEdit.Text :=recordQuery.fieldbyname('bianma').AsString ; mcEdit.Text :=recordQuery.fieldbyname('mingcheng').AsString ; ckEdit.Text :=recordQuery.fieldbyname('ckm').AsString ; rkdhedit.Text :=recordQuery.fieldbyname('jzdh').AsString ; end; end; 其中 recordQuery 是记录查询，显示在DBGrid中； chengbQuery 是最新价格查询，显示在DBEdit中。

紅色部份要連在一起的因為 : 就是說明連著的字是一個 parameter 發表人 - Justmade 於 2003/05/20 14:14:12

谢谢各大大的费心！非常感谢！