比對上下筆資料

2014-01-06 03:06:28 279 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

AD服务器搭建一、角色安装1）打开服务器管理器，添加角色和功能；2) 点下一步；3）点下一步；4）点下一步；5）点击安装；6-1）将此服务器提升为域控制器；6-2）点下一步；6）输入密码点下一步；7）自动生成LIXF，点击下一步；8）确认目录，点下一步；8）确认安装条件，点安装； 8）安装成功，点关闭；... 阅读详情

請問各位版大..從DB搜尋出的資料如附件圖...請問有何方式
可以像附件圖所示..上下筆資料一樣的話...該筆與下筆資料反黃
請各位版大指導..謝謝!!

...全文

信息奥赛课课通（C++）p154-1近似排序试题描述读入一对正整数，将这两个数之间(包括这两个数本身)的所有数按下述特别规则排序后输出，该特别规则是按两数倒过来的值进行比较决定其大小，如30倒过来为3,29倒过来为92，则29大于30. 输入要求 1行，包含两个用空格隔开的自然数，这两个自然数给出了待排序数的范围，其中1≤第一个数≤第二个数≤999999999，两个数之差不超过100. 输出要求输出排序后的数据，每行输出... 阅读详情

smallmi1

语言基础/算法/系统设计 16,741 成员 33,233 内容

+ 关注 + 加入社区

切换为时间正序

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把文字画上去

比對上下筆資料

相关推荐