如何编程序对比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