对比两个表中备注型字段的内容
如何编程序对比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代码
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代码查询方法二
CLOSE TABLESUSE 表AGO TOPCSTRA=ALLTRIM(MLINE(内容,5))USE 表BGO TOPCSTRB=内容IF ATCLINE(CSTRA,CSTRB)=0 &&搜索不成功 MESSAGEBOX("表A备注字段第五行["+CSTRA+"]未出现在"+"表B备注字段“内容”["+CSTRB+"]中")ENDIF