13,822
社区成员
发帖
与我相关
我的任务
分享
TLocateOptions Opts;
Opts.Clear();
Opts << loPartialKey;
Variant locvalues[2];
locvalues[0] = Variant("Sight Diver");
locvalues[1] = Variant("P");
CustTable->Locate("Company;Contact", VarArrayOf(locvalues, 1), Opts);
SavePlace_Out = DM->ADOQ_Ter_Out->GetBookmark();//saveplace_out是定义好的全局变量
DM->ADOQ_Ter_Out->Close();
DM->ADOQ_Ter_Out->Open();
DM->ADOQ_Ter_Out->GotoBookmark(SavePlace_Out);
DM->ADOQ_Ter_Out->FreeBookmark(SavePlace_Out);
void __fastcall TForm_Main::PopupMenu_Copy_Ter_OutClick(TObject *Sender)
{
//复制选中单元格。
String s;
TClipboard * cp;
cp = new TClipboard();
int x = Ter_OutDBTableView1->Controller->FocusedColumnIndex;
int y = Ter_OutDBTableView1->Controller->FocusedRowIndex;
s = Ter_OutDBTableView1->DataController->GetValue(y,x);
cp->SetTextBuf(s.c_str());
delete cp;
}