ShowMessage(DBGrid1.DataSource.DataSet.FieldByName('field_01').AsString);
or
ShowMessage(DBGrid1.DataSource.DataSet.Fields[0].AsString);上面可以得到当前选中的数据!
怎么可以得到多选的那??
or
ShowMessage(DBGrid1.DataSource.DataSet.Fields[0].AsString);上面可以得到当前选中的数据!
怎么可以得到多选的那??
解决方案 »
- ACM多人视频
- html源代码中提取正文
- 初学者求助!我想把a的数据传给c,若有相同的数据不传
- 如果在ini文件中指定的位置写入注解?
- 请问,如何在delphi里面创建sql server 数据库,请给予具体的步骤,小弟不胜感激
- 关于word控件—2(帮忙写下文)。急。
- delphi可不可以做ActiveX 控件,怎么做那?用新建的哪个选项那?
- 很小的问题,让我好烦恼,求救
- table与query的不同
- 我怎么从文本文件里取指定长度的内容?
- 请问怎样读取及修改本机的ip地址、子网掩码、网关、DNS等信息(200分,不够再加)
- 急问:delphi 中如何实现类似于java 中的包可见性?? C# 和 C++呢?? 谢~!!
begin
if not Active then Abort;
DisableControls;
try
First;
while not EOF do
begin
DBGrid.SelectedRows.CurrentRowSelected:=True;
Next;
end;
finally
EnableControls;
end;
end;
begin
if not Active then Abort;
DisableControls;
try
First;
while not EOF do
begin
if DBGrid.SelectedRows.CurrentRowSelected then
begin
\\do you want
end;
Next;
end;
finally
EnableControls;
end;
end;
temp:book;
begin
for i:=0 to dbgrid.selecterows.count-1 do begin
temp:=dbgrid.selectrows.items[i];
table1.goto(temp);
for j:=0 to table.fieldcount-1 do
保存当前记录
table1.freebook(temp);
end;
即可处理
BookMark 是 DataSet的一个proprety, 用Temp : bookMark时就会报错
var
maxcount,j:integer;
begin
if RadioGroup2.ItemIndex=0 then
begin
if not Query1.IsEmpty then
begin
if DbgridEh1.SelectedRows.Count=0 then
begin
showmessage('请选择要批审的记录!前头框边颜色为黑色为选中.');
Exit;
end else
begin
if MessageBox(Handle,'你确定批量审批这些记录吗?','询问',
MB_ICONQUESTION+MB_YESNO)=mrYes then
begin
maxcount:=DbGridEh1.SelectedRows.Count - 1;
for j := 0 to DbgridEh1.SelectedRows.Count - 1 do
begin
maxcount:=DbgridEh1.SelectedRows.Count - 1;
with DbGridEh1.DataSource.DataSet do
begin
GotoBook(pointer(DBGridEh1.SelectedRows.Items[j]));
if Query1SPJG.Value='0' then
begin
Query1.Edit;
Query1SPSL1.Value:=Query1SL.Value;
Query1SPZJ1.Value:=Query1YSZJ.Value;
Query1SPJG.Value:='1';
//单项小于10万元的项目赋值下一级
if not ((Query1SPSL1.AsFloat=0) or (Query1SPSL1.AsFloat=null)) then
begin
if (Query1SPZJ1.AsFloat/Query1SPSL1.AsFloat<10) then
begin
Query1SPSL2.Value:=Query1SPSL1.Value;
Query1SPZJ2.Value:=Query1SPZJ1.Value;
end;
end;
Query1.Post;
Query1.ApplyUpdates;
Query1.CommitUpdates;
end;
end;
end;
showmessage('数据批量审批完毕!');
OpenQuery(Query1,Query1.SQL.Text);
Query1AfterScroll(Query1);
end;
end;
end;
end else
begin
showmessage('请选择未批的数据审批!');
exit;
end;
end;