一个表单中有同时又grid和combo，通过点击“打开文件”按钮选择表，在list中显示选中的表的列名（以下简称1表），在grid中显示1表的所有数据，然后通过“选择对应关系”，和另一个表建立对应关系(以下简称2表，combo下拉框显示2表的列名)。
private mp,fn
mp=""
********要另外选择一个工作区打开新表*****************
select 0
**********************************

数据表(dbf)|*.dbf"

mp=
fn=
if empt(mp)=.f.
   use &mp
   fn=left(fn,len(fn)-4)
   thisform.grid1.recordsource=fn
   thisform.grid1.visible=.t.
   FOR I=1 TO fcount()
      thisform.list1.AddItem(FIELD(I))
      NEXT
   thisform.refresh
endif
现在已经实现在grid中显示1表数据，但是显示的数据列数始终和2表的列数相同，2表有几个字段，grid中显示的1表数据就是几个字段，实在想不出是为什么，请高手指教！

“打开文件”命令按钮所得到的效果，就是在List1和Grid1中分别显示表结构和表内容。“选择对应关系”其实并不要求对List1和Grid1做什么更改。请明确“选择对应关系”要完成的功能。

1、grid显示表的内容没有达到预期的效果。
2、选择对应关系的目的：如果表1的字段是xm，表2的字段是姓名,通过点击“选择对应关系”，将表1的xm和表2的姓名建立对应关系，这样导入数据的时候，表1的xm字段导入表2的姓名字段

“打开文件”的代码：
cFileName=Getfile('dbf')
if file(cFileName)
  if !used(juststem(cFileName))
    use (cFileName) in 0
  endif
  ThisForm.List1.RowSourceType=8
  ThisForm.List1.RowSource=juststem(cFileName)
  ThisForm.Grid1.ColumnCount=-1
  ThisForm.Grid1.RecordSourceType=1
  ThisForm.Grid1.RecordSource=juststem(cFileName)
  ThisForm.List1.Visible=.T.
  ThisForm.Grid1.Visible=.T.
else
  ThisForm.List1.Visible=.F.
  ThisForm.Grid1.Visible=.F.
endif

“导入”的代码：
cFileName=Getfile('dbf')
if file(cFileName)
  if !used(juststem(cFileName))
    use (cFileName) in 0
  endif
  
  (cFileName)
  
else
  
endif

可是“选择对应关系”的代码，由于不知道你要做什么，不知道该如何编写。

[ 本帖最后由 Tiger5392 于 2009-9-17 12:40 编辑 ]

高手，佩服您啊！

选择对应关系就是将表1的xm字段和表2的姓名字段建立关系，然后将表1的数据导入表2中