比對上下筆資料

smallmi1 2014-01-06 03:06:28
請問各位版大..從DB搜尋出的資料如附件圖...請問有何方式
可以像附件圖所示..上下筆資料一樣的話...該筆與下筆資料反黃
請各位版大指導..謝謝!!
...全文
218 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
DelisPhi 2014-01-18
  • 打赏
  • 举报
回复
另外楼主可能没弄明白Eof是怎么回事,Eof是指指针底下没东西了,不能用类似 WHILE NOT eof DO BEGIN (取数据) next (取数据) END; 的形式,而只可能是 WHILE NOT eof DO BEGIN (取数据) next END; 这样才不报错的。 再另,SQL语句(Oracle)或者存储过程应该都能实现直接取上下行数据的功能,不用在程序里搞。
DelisPhi 2014-01-18
  • 打赏
  • 举报
回复
这个事取完数据再回头把颜色处理一下不就完了么。非得要同时取数据又改颜色?多累呀。 把数据先导出到Excel,再对比 FOR i:=1 to N-1 do IF (第i格=第i+1格) THEN 上色;IF 格(N-1)=格(N) THEN 上色 完事,外面加个N>1 的判断,懂的。
Frank6600 2014-01-10
  • 打赏
  • 举报
回复

adoquery20.DisableControls;
try
  Adoquery20.First;
  if not ADOQuery20.Eof then
  begin
    s2:=adoquery20.fieldbyname('sField2').AsString;
    s3:=adoquery20.fieldbyname('remark').AsString;
  end;
  ADOQuery20.Next;
  while not Adoquery20.Eof do
  begin
    s4:=adoquery20.fieldbyname('sField2').AsString;
    s5:=adoquery20.fieldbyname('remark').AsString;
    if(s2=s4) then
    begin
       ListBox1.Items.Add(s3);
       ListBox1.Items.Add(s5);
    end;
    Adoquery20.Next;
  end;
finally
  adoquery20.EnableControls;
end;
smallmi1 2014-01-09
  • 打赏
  • 举报
回复
回覆大大....我寫了以下語法..但是遇到一個問題 就是最後一筆資料會讀取2次...變成最後一筆資料會誤判重覆 找不出哪裡有問題..請大大指導...謝謝!!

 adoquery20.DisableControls;
    try
     Adoquery20.First;
          while not Adoquery20.Eof do
          begin
         s2:=adoquery20.fieldbyname('sField2').AsString;
         s3:=adoquery20.fieldbyname('remark').AsString;
      Adoquery20.Next;
       s4:=adoquery20.fieldbyname('sField2').AsString;
       s5:=adoquery20.fieldbyname('remark').AsString;
     if(s2=s4) then
      begin
        ListBox1.Items.Add(s3);
        ListBox1.Items.Add(s5);
      end;
         end;
          finally
      adoquery20.EnableControls;
       end;
Frank6600 2014-01-08
  • 打赏
  • 举报
回复
差不多就是楼主写的那样。 只是做以下修改: 1.在AdoQuery.AfterPost事件里处理; 2.先DisableControls,记住目前位置,处理完后回到目前位置(用Dataset.bookmark),最后EnableControls; 3.记住目前的值(你的代码里已有),Prior到头,再Next到尾。 4.EnableControls会帮你Update Grids,从而上色。
smallmi1 2014-01-07
  • 打赏
  • 举报
回复
回覆大大..我的想法是..建立一個虛擬欄位..然後上下筆資料比對.. 如果一樣的話...就在上下筆資料的虛擬欄位填入值... 目前卡在不知如何進行上下筆資料比對...請大大指導...謝謝!! 我在ADOQuery20CalcFields中寫了以下語法..但發生錯誤

while not Adoquery20.Eof do
  begin
    s1:=adoquery20.fieldbyname('sField2').AsString;
    Adoquery20.Next;
    ss:=adoquery20.fieldbyname('sField2').AsString;
      if(ss=s1)  then
        begin
          DataSet.FieldByName('s4').AsString:='0';
        end;
  end;
lhy 2014-01-06
  • 打赏
  • 举报
回复
或者响应自绘消息时处理一下。
sololie 2014-01-06
  • 打赏
  • 举报
回复
找出同样的用一个for 循环不就完事了,循环时记录相同的item的索引下标,然后把对于下标的设置下背景色 修改背景色可以把canvas的brush指定一个颜色,然后fillrect填充这个颜色,最后用textout把文字画上去
2-2-3引用NameSpace 引用设定 引用之后 2-2-4关于变量 声明及使用 生存周期及传递 变量传递予DHTML 2-3写给ASP开发人员 2-3-1 ASP的物件 2-3-2了解NameSpace 2-3-3 Server的事件及执行位置 2-3-4数据定义的改变 2-4使用Visual Studio.NET 2-4-1集成的开发环境 2-4-2工程处理 检视各项数据及辅助工具 引用数据 加入控件或文件 专案属性 建立资料存取环境 第三章表单基本设计 3-1 HTML Control 3-1-1在网页动态显示图片 3-1-2上传文件 3-1-3动态产生表格列及单元格 3-2 WebControl 3-2-1使用月历执行查询 3-2-2使用验证规则 3-2-3使用组合方块 3-2-4使用选项组 3-2-5取得及显示控制项之值 3-3事件处理 3-3-1物件及事件 属性、方法及事件的继承 关于Overrides 事件程序的参数 3-3-2 PostBack的设计 Page_Laod事件 AutoPostBack属性 3-3-4 HTML控制项的事件 3-4表单流程控制及设计 3-4-1使用表单的第一件事 3-4-2关于Form标记 3-4-3关于Page物件 判断及取得控制项 动态新增控制项 产生前端处理语法 3-4-4表单流程设计 浏览另一页 传递条件 第四章以Visual Studio.NET开发Web应用系统 4-1 Visual Studio.NET与Web 4-1-1有关Web的专案 4-1-2关于Web应用系统 专案位置 使用多个Web Application专案 Web Application专案属性 离线作业及权限设定 测试及执行 使用及执行范例 4-2使用Config 4-2-1可使用的标记 取得浏览器资讯 记录字串 自订标记 使用Configuration Viewer 4-2-2 Config.web的位置 4-3 Global.asax 4-3-1 Global.asax的内容 4-3-2 Global.asax的位置 4-4其他组件 4-4-1关于Reference 4-4-2使用样式表 定义样式 在网页引用样式 4-4-3新增组件 4-5建立表单 4-5-1网页编辑模式 4-5-2控制项处理 新增控制项 属性设定 4-5-3撰写程式 Class的观念 继承的定义 取用事件 4-6封装及部署 4-6-1关于Build 4-6-2部署 加入部署项目 产生安装档 执行部署 第五章结合数据库基本设计 5-1结合数据库之前 5-1-1确定平台及数据库格式 5-1-2前端与后端的差别 5-2使用Access及SQL的重点 5-2-1系统规划概述 5-2-1使用Access的注意事项 5-2-2使用SQL Server的注意事项 5-2-3安全考量应有设计 Access文件的位置 SQL的超级使用者-sa 数据库连接-使用DSN 5-3 ASP.NET如何结合数据库 5-3-1关于ADO.NET 5-3-2与数据库无关的DataSet DataSet的内容 DateSet的来源(自行建立) DateSet的来源(取用数据库) 控制项结合DataSet 回存至来源 5-3-3没有Recordset 5-3-4取得记录的多种方法 5-3-5阵列的观念 5-4以Visual Studio.NET建立资料表单 5-4-1取得资料来源 连接至数据库 取得记录 5-4-2 DataSet处理 产生DataSet 连接网页及DataSet 5-4-3使用资料表单精灵 5-4-4 View的设计及取得 第六章资料表单设计(一)-使用DataGrid 6-1范例说明 6-1-1开发目的及内容 6-1-2 Access及SQL 执行安装 关于取得数据库的连接 6-2 DataGrid控制项 6-2-1编辑及储存 编辑及储存基本设计 编辑时锁定部份栏位 编辑时使用多种控制项 6-2-2新增设计 6-2-3删除设计 删除基本设计 批次删除 6-2-4分页设计 分页基本设计 使用数字 6-2-5排序设计 排序基本设计 使用多重栏位 第七章资料表单设计(二)-使用Repeater及DataList 7-1范例说明 7-1-1开发目的及内容 7-1-2 Access及SQL 执行安装 7-2实务设计范例 编辑及储存基本设计 编辑设计(显示在单一表单) 删除设计 分页设计 排序设计 7-3资料控制项整理说明 显示记录 可使用的Template Template的内容 DataGrid的Template 子控制项的寻找及取得 第八章其他资料表单设计 8-1单一表单 控制项的Tooltip 取得及显示记录 上下页切换 输入笔数及切换 编辑处理 新增处理 取消设计 储存设计 储存后的更新 8-2主子表单 8-2-1同页显示 操作及功能说明 主子表单的连结 编辑处理 自动计算的设计 子表单之新增处理 储存设计 8-2-2分页显示 主子表单的连结 使用HyperlinkColumn 子表单的新增及储存 8-3查询式表单 取得资料表 建立新DataTable 取得栏位及型态 新增准则 清除准则 执行筛选 第九章资料验证及格式 9-1资料验证 9-1-1资料验证实务范例 验证主索引 验证身份证号 验证Email 储存前检查 验证密码 9-1-2使用前端验证 9-1-3综合说明 可被验证的控制项 比对语法 9-2资料格式 9-2-1设定格式 使用DataFormatString 使用Format相关函数 9-2-2资料转换 Ctype函数 ToString Null的处理 避免错误的设计 第十章结构化设计 10-1使用Pagelet 10-1-1 Pagelet的基本架构 Pagelet的内容 引用Pagelet 10-1-2为Pagelet加入属性及方法 10-2 Pagelet的实务范例 10-2-1表头及表尾 10-2-2输入表单的辅助设计 DropDownlist 日期输入 10-2-3基本处理工具列 10-2-4清单方块选项传递 10-3自订NameSpace-物件类别 10-3-1 NameSpace的架构 NameSpace的基本形式 编译为DLL 引用自订NameSpace 10-3-2在Visual Studio.Net的处理 新增Web Control Library专案 编译处理 引用自订NameSpace 10-4自订Namespace-控制项 10-4-1关于Control的继承 10-4-2建立自订控制项 制作单一表单 撰写程式 第十一章跨越网际网路的WebService 11-1了解WebService 11-1-1服务的架构 11-1-2允许的资料型态 11-1-3由撰写至使用WebService 制作.asmx文件 撰写的注意事项 浏览.asmx 产生SDL 编译 引用 11-1-4在Visual Studio.NET的处理 制作及编译WebService专案 引用至WebApplication专案 11-2在Web Service使用数据库 11-2-1数据库处理 11-2-2引用至.aspx 取得回传的DataSet 回存及删除处理 第十二章进阶设计及其他相关课题 12-1 DataSet及XML 12-1-1写入至XML 12-1-2将筛选结果写入至XML 12-1-3读取XML 12-2使用CodeBehind 12-2-1 CodeBehind的设计 12-2-2 CodeBehind范例 引用程式档 程式档内容 12-3以Cookie管理使用者 12-3-1定义使用者 12-3-2认证处理 12-4 Session的管理 12-4-1规划Session 12-4-2 Session基本设定 网页与Session 在Config.web设定Session 12-4-3在Web Service使用Session 12-5传送Email 12-5-1制作发送Email之表单 12-5-2由数据库大量传送 第十三章成功案例 13-1讨论区 13-1-1数据库结构 13-1-2讨论区之操作 13-1-3流程设计 13-1-4登入设计 判断是否登入 回至Session 13-1-5切换类别及时间 多项属性定义 引用至网页 取得及显示类别 总笔数至结束日 自订事件 类别切换 13-1-6文章处理 显示文章 浏览文章 回覆及新增处理 上下周切换 13-2所见即所得-组合卫浴 13-2-1数据库结构 13-2-2操作说明 13-2-3重要设计说明 附录A除错处理 附录B追踪处理

16,747

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧