数据邦定控件修改数据源问题请教大家，在此先谢了

Question

在程序中使用了数据邦定控件DBEdit、DBLookupComboBox,为使含这些控件的窗体能够在软件中多处使用,就在程序中修改其数据源,代码如下:
 
 if  tag = 0 then then
 begin
    dm.ds1.append;
    dblcb.DataSource:=dm.sds1;
    dbedt.DataSource:=dm.sds1;
    dm.ds1.post;
 end
 else if tag = 1 then
 begin
    dm.ds2.append;
    dblcb.DataSource:=dm.sds2;
    dbedt.DataSource:=dm.sds2;
    dm.ds2.post;
 end; 在dblcb和dbedt中其DataField相同，在Object Inspector中设置。
 
 现在有用户反映说数据有时保存不了，怀疑此处可能有问题，请大家该看一下，
 

Answer 1

if  tag = 0 then then
 begin
    dblcb.DataSource:=dm.sds1;
    dbedt.DataSource:=dm.sds1;
    dm.ds1.append;
    dm.ds1.post;
 end
 else if tag = 1 then
 begin
    dblcb.DataSource:=dm.sds2;
    dbedt.DataSource:=dm.sds2;
这样试试
---------学习中--------
    dm.ds2.append;
    dm.ds2.post;
 end;

Answer 2

if  tag = 0 then then
 begin
    dblcb.DataSource:=dm.sds1;
    dbedt.DataSource:=dm.sds1;
    dm.ds1.append;
    dm.ds1.post;
 end
 else if tag = 1 then
 begin
    dblcb.DataSource:=dm.sds2;
    dbedt.DataSource:=dm.sds2;
    dm.ds2.append;
    dm.ds2.post;
 end;上面写错了,抱歉,这样

Answer 3

抱歉，我的代码也写错了，应该：
if  tag = 0 then then
 begin
    dblcb.DataSource:=dm.sds1;
    dbedt.DataSource:=dm.sds1;
    dm.ds1.append;
    dm.ds1.post;
 end
 else if tag = 1 then
 begin
    dblcb.DataSource:=dm.sds2;
    dbedt.DataSource:=dm.sds2;
    dm.ds2.append;   
    dm.ds2.post;
 end;

Answer 4

重新写一遍
在程序中使用了数据邦定控件DBEdit、DBLookupComboBox,为使含这些控件的窗体能够在软件中多处使用,就在程序中修改其数据源,代码如下:
if  tag = 0 then then
 begin
    dblcb.DataSource:=dm.sds1;
    dbedt.DataSource:=dm.sds1;
    dm.ds1.append;
    dm.ds1.post;
 end
 else if tag = 1 then
 begin
    dblcb.DataSource:=dm.sds2;
    dbedt.DataSource:=dm.sds2;
    dm.ds2.append;   
    dm.ds2.post;
 end;
 
在dblcb和dbedt中其DataField相同，在Object Inspector中设置。
 
 现在有用户反映说数据有时保存不了，怀疑此处可能有问题，请大家该看一下，

Answer 5

欢迎大家加入DELPHI程序员群1805366，一起进步！