type
\nTDummyDBGrid = class(TCustomDBGrid);
\n\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2013>>><\/p>\n
procedure TForm1.Button1Click(Sender: TObject);
\nvar
\nw_print,w_no : Integer;
\nw_sql : String;
\nRowCount, RN: Integer;
\nTopRowRecNo, CurrentRowNo: Integer;
\nbegin<\/p>\n
dm.sql_list.DisableControls;
\nCurrentRowNo := TDummyDBGrid(db_list).Row \u2013 1;
\nTopRowRecNo := dm.sql_list.RecNo \u2013 CurrentRowNo;<\/p>\n
if db_list.Fields[11].AsInteger = 0 then w_print := 1
\nelse w_print := 0;<\/p>\n
w_no := db_list.Fields[0].AsInteger;<\/p>\n
w_sql := \u2018UPDATE w_hurikomi_m SET w_hurikomi_m.print_flg = \u2018 + IntToStr(w_print);
\nw_sql := w_sql + \u2018 WHERE w_hurikomi_m.sql_no = \u2018 + IntToStr(w_no);<\/p>\n
with dm.ado_sql do begin
\nSQL.Clear;
\nSQL.Add(w_sql);
\nExecSQL;
\nend;<\/p>\n
dm.sql_list.Close;
\ndm.sql_list.Open;<\/p>\n
\/\/ \u6307\u5b9a\u30ec\u30b3\u30fc\u30c9\u3092TopRow\u306b\u79fb\u52d5\u3055\u305b\u308b\u51e6\u7406
\nRowCount := TDummyDBGrid(db_list).VisibleRowCount;
\ndm.sql_list.RecNo := TopRowRecNo;
\ndm.sql_list.MoveBy(RowCount);<\/p>\n
while not dm.sql_list.BOF do
\nbegin
\nRN := dm.sql_list.RecNo;
\nif RN = TopRowRecNo then
\nBreak
\nelse
\ndm.sql_list.Prior;
\nend;<\/p>\n
\/\/ \u30ab\u30fc\u30bd\u30eb\u3092\u5143\u306e\u30ab\u30ec\u30f3\u30c8\u30ec\u30b3\u30fc\u30c9\u306b\u79fb\u52d5\u3055\u305b\u308b\u51e6\u7406
\ndm.sql_list.MoveBy(CurrentRowNo);
\ndm.sql_list.EnableControls;<\/p>\n
Result := True;<\/p>\n
end;<\/p>\n","protected":false},"excerpt":{"rendered":"
type TDummyDBGrid = class(TCustomDBGrid); \u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2013>>> procedure TForm1.Button1Click(Sender: TO … <\/p>\n