Fórum Multiselect #295946
17/09/2005
0
CdsLocacoes: Record no found
with DBGLocacoes do
begin
if SelectedRows.Count > 0 then
for i := 0 to Pred(SelectedRows.Count) do
begin
{posiciona nos registros selecionados do DBGrid}
DsLocacoes.Dataset.Bookmark := SelectedRows[i];
ShowMessage(CdsLocacoesNOMFIL.AsString);
end;
end;Abs
Felipeiw
Curtir tópico
+ 0Posts
17/09/2005
Rjun
Gostei + 0
17/09/2005
Martins
with DBGLocacoes do
begin
if SelectedRows.Count > 0 then
for i := 0 to Pred(SelectedRows.Count) do
begin
{posiciona nos registros selecionados do DBGrid}
DsLocacoes.Dataset.Bookmark := SelectedRows[i];
ShowMessage(CdsLocacoesNOMFIL.AsString);
end;
end;Existem realmente dados em seu Dataset / DbGrid?
fiz assim com Table utilizando tabelas do DBDEMOS e funcionou!!!
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i: Integer;
begin
with DBGrid1 do
begin
if SelectedRows.Count > 0 then
for i := 0 to Pred(SelectedRows.Count) do
begin
{posiciona nos registros selecionados do DBGrid}
DataSource1.Dataset.Bookmark := SelectedRows[i];
ShowMessage(Table1Name.AsString);
end;
end;
end;
O mesmo funciona com o ClientDataset, não sei se vc usa (cds ou xml), mas fiz um teste aqui com Xml e funcionou blz.
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i: Integer;
begin
with DBGrid1 do
begin
if SelectedRows.Count > 0 then
for i := 0 to Pred(SelectedRows.Count) do
begin
{posiciona nos registros selecionados do DBGrid}
DataSource1.Dataset.Bookmark := SelectedRows[i];
ShowMessage(Ds1Nome.AsString);
end;
end;
end;
Acima está o código utilizado.
Qualquer coisa, posta teu e-mail q te envio o exemplo q fiz utilizando XML.
Bos Sorte!!!
Martins
Gostei + 0
19/09/2005
Felipeiw
Com xml tb consegui, mas nao consigo com clientdataset
Gostei + 0
19/09/2005
Martins
Muito estranho isso!!!!!
Alias esse fórum tá cheio de casos estranhos!!!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)