DO CASE
   CASE thisform.list2.listindex>0 .and. thisform.list2.ListCount>0
      thisform.list2.ListIndex=1
   CASE thisform.list2.ListIndex=0 .and.thisform.list2.listcount>0
      thisform.list2.ListIndex=1
   CASE thisform.list2.listindex=0 .and.thisform.list2.listcount=0
      thisform.list2.ListIndex=0
ENDCASE
IF thisform.list2.listindex>0
   thisform.list3.AddItem(ALLTRIM(thisform.list2.value))&&在list3中增加一个字段，在list2删除一个字段
   thisform.list3.refresh
   thisform.list2.removeitem(thisform.list2.ListIndex)
   thisform.list2.refresh
ELSE
   thisform.cmdremover.Enabled= .T.
   thisform.cmdremoverall.Enabled= .T.
   thisform.cmdadd.Enabled= .f.
   thisform.cmdaddall.Enabled= .f.
ENDIF
发现list2中选定的结果无法现在list3上
      

是还不行

补充一点thisform.list2.value的值是正确的。这段程序是cmdadd按钮的程序。整体意识是：把目录中的dbf文件显示在list1中。选择其中一个文中，将他的字段现在list2中
 然后有4个按钮控制字段移动。

是我自己马虎了，把list3的属性改动了，谢谢大家程序改好了。适当时间发出来和大家分享。