我现在想把dbgrid其中的某个字段实现下拉,下拉的值是另外一个表中的字段的值,就是说我现在的dbgrid连的是数据源a,而下拉的值是要连数据源b,该怎么做呢,还请大家多多指教。
解决方案 »
- 如何安装带有*.dpk的第三方控件
- 請教:如何實現dbgrid change的時候,彈出message
- 关于编写DLL的问题.
- 如何让 PageControl锁定某个ActivePage?
- 我想导入sql server中的的一些库并象sql server一样编辑各表,并保存?
- 高分请教:采用MS SQL Server的系统向Oracle系统转,方便码?
- 如何将DBGrid中的数据打印出来?(高分)
- 关于一个管理系统的生成器的开发
- delphi 改变窗口形状(图片)
- 关于Excel得问题?请大家进来看看好吗?
- 关于判断未相应程序的解决办法
- 关于ord函数,将字母转成ASCII为什么通不过,错在何处?
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, BaseGrid, AdvGrid, StdCtrls;type
TForm1 = class(TForm)
AdvStringGrid1: TAdvStringGrid;
Button1: TButton;
procedure AdvStringGrid1GetEditorType(Sender: TObject; ACol,
ARow: Integer; var AEditor: TEditorType);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
FCbo1,FCbo2:TStringList;
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.AdvStringGrid1GetEditorType(Sender: TObject; ACol,
ARow: Integer; var AEditor: TEditorType);
var
I:Integer;
begin
with advstringgrid1 do
case acol of
1:begin
aEditor:=edComboList;
ClearComboString;
combobox.items.Assign( FCbo1 );
end;
2:begin
aEditor:=edComboList;
ClearComboString;
combobox.items.Assign( FCbo2 );
end;
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
FCbo1:=TStringList.Create;
FCbo2:=TStringList.Create;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FCbo1.Free;
FCbo2.Free;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
//控制item内容
FCbo1.Add( '1' );
FCbo1.Add( '2' );
//控制item内容
FCbo2.Add( '10' );
FCbo2.Add( '20' );
end;end.///你可以通过修改Button1Click内的实现来修改你的combobox内容