各位大大好,在multiselect状态下,希望update所选资料的栏位zt='2',其他都写好了,但update这一句却写不出来,请教该如何写?
procedure Tfm_xhdcx.GetSelectedRecord1(DataSet : TDataSet; FieldName1: String;BookmarkList : TBookmarkList);
var
I: Integer;
begin
with Dataset do
begin
DisableControls;
try
for I := 0 to BookmarkList.Count - 1 do
begin
Bookmark := BookmarkList[I];
//然后update所选资料的栏位zt='2',这一句如何写?
end;
finally
EnableControls;
end;
end;
end;

改成以下試試看
with Dataset do
begin
for I := 0 to BookmarkList.Count - 1 do
begin
Bookmark := BookmarkList[I];
try
GotoBookMark(Pointer(Bookmark));
DisableControls;
Edit;
FieldByName('zt').Value := '2';//FieldByName(FieldName1).Value := '2';
Post;
finally
EnableControls;
end;
FreeBookMark(Pointer(Bookmark));
end;
end;

===================引 用 luowy651 文 章===================
各位大大好,在multiselect状态下,希望update所选资料的栏位zt='2',其他都写好了,但update这一句却写不出来,请教该如何写?
procedure Tfm_xhdcx.GetSelectedRecord1(DataSet : TDataSet; FieldName1: String;BookmarkList : TBookmarkList);
var
I: Integer;
begin
with Dataset do
begin
DisableControls;
try
for I := 0 to BookmarkList.Count - 1 do
begin
Bookmark := BookmarkList[I];
//然后update所选资料的栏位zt='2',这一句如何写?
end;
finally
EnableControls;
end;
end;
end;

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL

編輯記錄