UpdateBatch为啥总是更新最后一条数据

2019-03-24 02:47:59 607 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

liaowenwei2009 墨衍会员 · AI 创作全网分发关注 + 加入社区

官网下载STM32系列芯片的产品选型手册官方提供了产品选型手册，便于工程师们进行产品选型。那么，在哪下载"产品选型手册"呢？请看下文。阅读详情

我界面是这样设计的，panel1是一些文本编辑框（比如：门牌号、姓名），还有一个cxgrid，cxgrid用来编辑一些有收费编码、收费名称，现在我再cxgrid里多编辑几行，用UpdateBatch保存时，为啥门牌号、姓名这些基本信息保存时库表只是最后一行才有，其它几行门牌号、姓名都为null，但是cxgrid里的收费编码、收费名称保存是库表里都有。以下是代码。

with WYData.Ado_FYMX do
begin
for i := 0 to cxGrid1DBTableView1.Controller.FocusedRowIndex do
begin
Edit;
if cxLabel26.Caption = '' then
FieldByName('IID').Value := null
else
FieldByName('IID').Value := cxLabel26.Caption;
FieldByName('CMPH').Value := cxTextEdit5.Text; //门牌号
FieldByName('CSFDH').Value := cxLabel25.Caption; //收费单号
FieldByName('CZHXM').Value := cxTextEdit4.Text; //住户姓名
FieldByName('CXQMC').Value := cxTextEdit6.Text; //小区名称
FieldByName('BTF').Value := 0; //退费标记
FieldByName('CJSJMC').Value := GetComputerName;
FieldByName('CIP').Value := GetHostIP;
FieldByName('DJSSJ').Value := DateTimeToStr(Now);
UpdateBatch; //保存
end;

保存到库表是这样的：

...全文

麒麟V10等保三级配置实战：从auditd规则到PAM锁定的可信基线构建 Linux安全基线是信息系统可信运行的基础能力，其核心在于身份鉴别、访问控制与安全审计三大机制的协同落地。在国产化信创环境中，麒麟V10作为深度适配飞腾/鲲鹏平台的操作系统，其等保三级合规并非简单套用CentOS加固脚本，而是需围绕内核审计（auditd）、可插拔认证模块（PAM）及国产安全增强机制（如kysec）进行精细化编排。技术价值体现在将抽象条款（如GB/T 22239-2019中6.1.2、6.3.3条）转化为可验证的命令行操作，确保登录失败可锁定、关键行为可追溯、时间偏差不致日志失效。典型应用场阅读详情

liaowenwei2009

数据库相关 2,508 成员 88,437 内容

+ 关注 + 加入社区

切换为时间正序

luj_1768 2019-03-25

打赏
举报

这是系统为了加快显示速度与效果，弄出的一个优化bug。只要在最后加上一个刷新cxgrid 控件显示的代码，就行了。

liaowenwei2009 2019-03-25

打赏
举报

引用 8 楼秋天之落叶的回复:

另外，增加应该是append，编辑才是edit，你确定没用错？

用append保存到库表里是这样的

liaowenwei2009 2019-03-25

打赏
举报

引用 8 楼秋天之落叶的回复:

另外，增加应该是append，编辑才是edit，你确定没用错？

用append增加，会造成赋值语句与cxgrid的值不在一行，跟踪的语句是有2个insert语句，用edit编辑一行数据书正常的，但是多于一行，赋值语句就在最后一行保存。
我数据源是用的ado的，只是在locktype里设置了ItBatchOptimistic，用post压根就不保存，是不是cxgrid的值保存到内存去了，要用edit。

秋天之落叶 2019-03-25

打赏
举报

另外，增加应该是append，编辑才是edit，你确定没用错？

秋天之落叶 2019-03-25

打赏
举报

没用过cxGrid，你确认cxGrid1DBTableView1.Controller.FocusedRowIndex是有效的循环数据？

liaowenwei2009 2019-03-25

打赏
举报

引用 5 楼秋天之落叶的回复:

是不是应该以下结构
for i:=0 to ado.count-1 do
begin
edit;
...; //赋值语句
post;
ado.next;
end;
UpdateBatch;

还是一样的

秋天之落叶 2019-03-25

打赏
举报

楼上的好像没什么差别。
楼主你改成ItOptimistic，加上post试一试效果。
不过我确实没能完全理解楼主的意思。

天行归来 2019-03-25

打赏
举报

针对明细数据，逐条补齐设定的公用信息？
可以这么做。



  with WYData.Ado_FYMX do

  begin

    First;

    DisableControls;

    while not Eof do

    begin

      Edit;

      if cxLabel26.Caption = '' then

        FieldByName('IID').Value := null

      else

        FieldByName('IID').Value := cxLabel26.Caption;

      FieldByName('CMPH').Value := cxTextEdit5.Text;           //门牌号

      FieldByName('CSFDH').Value := cxLabel25.Caption;         //收费单号

      FieldByName('CZHXM').Value := cxTextEdit4.Text;          //住户姓名

      FieldByName('CXQMC').Value := cxTextEdit6.Text;          //小区名称

      FieldByName('BTF').Value := 0;                           //退费标记

      FieldByName('CJSJMC').Value := GetComputerName;

      FieldByName('CIP').Value := GetHostIP;

      FieldByName('DJSSJ').Value := DateTimeToStr(Now);

      Next;

    end;

    UpdateBatch;   //保存

    EnableControls;

  end;