当前位置: 代码迷 >> VFP >> 对比两个表中备注型字段的内容,该怎么处理
  详细解决方案

对比两个表中备注型字段的内容,该怎么处理

热度:4946   发布时间:2013-02-26 00:00:00.0
对比两个表中备注型字段的内容
如何编程序对比A,B两个表中的两个Memo字段值的第5行内容是否一致

例如:
表A中Memo的内容:
  Top = 120
  Left = 240
  Height = 25
  Width = 60
  Caption = "退出"
  Name = "command1"
表B中Memo的内容:
  Top = 120
  Left = 240
  Height = 25
  Width = 60
  Caption = "退初"
  Name = "command1"





------解决方案--------------------------------------------------------
GetWordNum(备注字段名,5,Chr(13))
------解决方案--------------------------------------------------------
VFP6.0代码
SQL code
CLOSE TABLESUSE 表AGO TOPCSTRA=ALLTRIM(Mline(内容,5))USE 表BGO TOPCSTRB=ALLTRIM(Mline(内容,5))IF LIKE(CSTRA,CSTRB)=.F.   MESSAGEBOX("表A备注字段第五行["+CSTRA+"]与"+CHR(13)+CHR(13)+"表B备注字段第五行["+CSTRA+"]内容不匹配")ENDIF
------解决方案--------------------------------------------------------
表B备注字段第五行["+CSTRA改为表B备注字段第五行["+CSTRB
------解决方案--------------------------------------------------------
VFP6.0代码查询方法二
SQL code
CLOSE TABLESUSE 表AGO TOPCSTRA=ALLTRIM(MLINE(内容,5))USE 表BGO TOPCSTRB=内容IF ATCLINE(CSTRA,CSTRB)=0 &&搜索不成功   MESSAGEBOX("表A备注字段第五行["+CSTRA+"]未出现在"+"表B备注字段“内容”["+CSTRB+"]中")ENDIF
  相关解决方案