第一段 form init

COPY FILE \\aecess\aecess\名表.DBF TO E:\aecess\A106.DBF
SELECT 6
USE E:\aecess\A106
DELE FOR 部门供户="        "
PACK
APPEND BLANK
BROW FIEL 部门供户,供货单位,供品名,供规格,供单位
DELE FOR 部门供户="        "
PACK
SELECT 7
USE \\aecess\aecess\名表
BS1=RECCOUN()
SA1=1
DO WHILE SA1<=BS1
  SELECT 7
  GO SA1
  REPLACE 部门供户 WITH "        ",供货单位 WITH "                           ",供品名 WITH "                          "
  REPLACE 供规格 WITH "                 ",供单位 WITH "  "
  SA1=SA1+1
ENDDO
SELECT 6
BS1=RECCOUN()
SA1=1
DO WHILE SA1<=BS1
  SELECT 6
  GO SA1
  STORE 部门供户 TO QW1
  STORE 供货单位 TO QW2
  STORE 供品名 TO QW3
  STORE 供规格 TO QW4
  STORE 供单位 TO QW5
  SELECT 7
  GO SA1
  REPLACE 部门供户 WITH QW1,供货单位 WITH QW2,供品名 WITH QW3,供规格 WITH QW4,供单位 WITH QW5
  SA1=SA1+1
ENDDO
SELECT 6
USE
DELE FILE E:\aecess\A106.DBF
SELECT 7
USE

第二段 combo1 click


IF EMPTY(ALLTRIM())
ELSE
  COPY FILE \aecess\名表.DBF TO E:\aecess\Z101.DBF
  SELECT 4
  DELE ALL
  PACK
  SELECT 5
  USE E:\aecess\Z101
  DELE FOR 供品名<>ALLTRIM()
  PACK
  DO WHILE .T.
    SELECT 5
    GO 1
    STORE 供规格 TO CC1
    SELECT 4
    APPEND BLANK
    REPLACE 供规格 WITH CC1
    SELECT 5
    DELE FOR 供规格=CC1
    PACK
    SELECT 5
    BB121=RECCOUNT()
    IF BB121=0
      EXIT
    ENDIF
  ENDDO
  SELECT 5
  USE
  DELE FILE E:\aecess\Z101.DBF
ENDIF

THISFORM.TEXT5.VALUE=""
第一段看明白了，主要是第二段第一行

第二段，不能读出来，供贷单位，下拉列表里没有出现供货单位的名


[ 本帖最后由 zenclp 于 2013-6-1 10:01 编辑 ]

先看下VFP帮助中的有关命令和函数，如果不明白的地方再问，如果不想看书，就不要问了。

IF EMPTY(ALLTRIM())


这个是什么意思

如果COMBO2为空

VFP帮助文件中有，自己先看

哪不明白问哪 不要笼统问

IF EMPTY(ALLTRIM())
 ELSE
   COPY FILE \aecess\名表.DBF TO E:\aecess\Z101.DBF
   SELECT 4
   DELE ALL
   PACK
   SELECT 5
   USE E:\aecess\Z101
   DELE FOR 供品名<>ALLTRIM()
   PACK


我想问下  if the  else  endif ,是成套出现的，我想问下，这个没有then,程序是如何运行的

谢谢了

我也看了，没看明白

帮助中的

IF ... ENDIF 命令
示例 请参阅

根据逻辑表达式值，有选择地执行一组命令。

语法

IF lExpression
Commands
[ELSE
Commands]
ENDIF

参数

lExpression

指定要计算的逻辑表达式。如果 lExpression 的计算结果为“真”（.T.），则执行 IF 语句之后、ELSE 或 ENDIF 语句（以先出现的语句为准）之前的所有命令。

如果 lExpression 为“假”（.F.）而且包含 ELSE 语句，则执行 ELSE 语句之后、ENDIF 语句之前的所有命令。
如果 lExpression 为“假”（.F.）但不包含 ELSE 语句，则忽略 IF 语句和 ENDIF 之间的所有命令。在这种情况下，程序从 ENDIF 语句后面的第一条命令开始，继续往下执行。
说明
一个 IF ... ENDIF 语句块之中可以嵌套另一个 IF ... ENDIF 语句块。
注释可以放在 IF、ELSE 和 ENDIF 所在行的后面。在编译和执行时，程序将忽略这些注释。