如何判斷dbgrideh里的cell內容是否變化 |
|
尚未結案
|
|
huangbh57
一般會員   發表：28 回覆：21 積分：9 註冊：2004-10-11 發送簡訊給我 |
|
|
shinjie
資深會員  發表：12 回覆：275 積分：287 註冊：2003-03-19 發送簡訊給我 |
|
|
huangbh57
一般會員 發表：28 回覆：21 積分：9 註冊：2004-10-11 發送簡訊給我 |
我的意思是在网格里如退出時(事件oncolexit的程序如下),
if subdata0.State in [dsEdit,dsInsert] then
begin
if dbgrideh1.SelectedField.FieldName='品號' then
begin
if (trim(dbgrideh1.FieldColumns['品號'].DisplayText)<>'') then
begin
q_str:='sql語句'
temData0.Close;
temData0.CommandText:=q_str ' where 品號=' QuotedStr(trim(dbgrideh1.FieldColumns[品號].DisplayText));
temData0.Open;
if temData0.RecordCount<>0 then
begin
subdata0.FieldByName('品名').asstring:=temData0.Fields[1].DisplayText;
end
else
begin
application.MessageBox('品號不存在','系統提示',16);
subdata0.FieldByName('品名').asstring:='';
abort;
end;
temData0.Close;
end;
end;
end;
如第一次找到,第二,三次退出時則不執行(有修改時執行),我還在dbgrideh的oneditbuttonclick寫了一段按鈕查詢,從按鈕帶出品號值時,退出時也不執行
|
發表時間：2004-12-24 11:19:48
IP:218.247.xxx.xxx 未訂閱
系統時間：2024-05-18 5:03:43
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |