السلام عليكم
اخواني الاعزاء
عملت برنامج بالفيجوال وفي اندكس يصل حجمه الى اكثر من جيجا ويتوقف البرنامج ياترى ما المشكلة ؟؟؟؟
وهذا البرنامج ايضا/ارجو الافادة مع الشكر الجزيل
CLOSE TABLES
SET SAFETY OFF
SET TALK OFF
SET DATE BRITISH
SET CENTURY ON
SELECT 1
USE MASTER
INDEX ON M_STFNO TAG A
SELECT 2
USE CALC_F
INDEX ON H_STFNO TAG B
SELECT 3
USE CALC_RTRDED
ZAP
APPEND FROM CALC_F
INDEX ON H_STFNO TAG C
SELECT 4
USE MONTHNM
INDEX ON M_NO TAG D
MON=MONTH(DATE())
SELECT 4
SEEK MON
IF FOUND()
SELECT 3
REPLACE ALL M_MON WITH D.M_NAME
ENDIF
**********************************
SELECT 3
GO TOP
DO WHILE !EOF()
SELECT 1
SEEK C.H_stfno
?C.H_STFNO
IF FOUND() &&AND M_STATUS<>'C' AND M_PACD<>'Z'
SELECT 3
REPLACE DEPT WITH A.DEPT
REPLACE LCD WITH A.LCD
*SKIP
*LOOP
ELSE
SELECT 1
INDEX ON M_STFNOOLD TAG A
SEEK C.H_stfno
IF FOUND()
SELECT 3
REPLACE NOTE WITH 'ÇáÑÞã ÇáÞÏíã'
REPLACE DEPT WITH A.DEPT
REPLACE LCD WITH A.LCD
ELSE
SELECT 3
REPLACE NOTE WITH 'ÇáÑÞã ÛíÑ ãæÌæÏ'
ENDIF
ENDIF
SELECT 1
INDEX ON M_STFNO TAG A
SEEK C.H_stfno
IF FOUND() AND M_STATUS='C'
SELECT 3
REPLACE M_C WITH A.M_STATUS
REPLACE NOTE WITH 'ãÛáÞ'
*SKIP
*LOOP
ENDIF
SELECT 1
SEEK C.H_stfno
IF FOUND() AND M_PACD='Z' AND M_STATUS<>'C'
SELECT 3
REPLACE M_Z WITH A.M_PACD
REPLACE NOTE WITH 'ãÚáÞ ãÇáíÇ'
*SKIP
*LOOP
ENDIF
SELECT 1
SELECT 3
SKIP
ENDDO
نسيت انوه عن الملف الي يتضخم به حجم الا ندكس وهو الماستر MASTER
