主题：帮我看一看我这个能不能进行开发了

你的问题是什么？你要做什么功能？具体说明

 要做什么功能？要做的功能，继续做不就好了？有什么问题？

 

 不会做的功能，就具体提问，或者自行学习一下如何开发 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

 

1、你外部数据在哪里？

 

2、通过什么方式录入？

 

3、录入到哪里？

 

如果是导入数据，参考

 

http://www.foxtable.com/webhelp/scr/0685.htm

 

http://www.foxtable.com/webhelp/scr/2334.htm

 

 

可以做一个按钮导入数据。

 

1、你的数据是什么形式的？发上来看看。

 

2、你要把数据导入到哪里？请具体说明。

参考代码

 

Dim app As New MSWord.Application
try
    Dim dlg As new OpenFileDialog
    dlg.MultiSelect = True
    If dlg.ShowDialog = DialogResult.OK Then
        For Each filename As String In dlg.FileNames
            Dim doc = app.Documents.Open(fileName)
            Dim t = doc.Tables(1)
            Dim s1 = t.Cell(2, 2).Range.text.tostring
            Dim s2 = t.Cell(2, 4).Range.text.tostring
            msgbox(s1)
            msgbox(s2)
            doc.saved = True
            doc.close
        Next
    End If
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
    'app.Quit
End try

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=71352&skin=0

 

做一个按钮执行。代码只是示例代码要看懂和改造的。

 

初学者，请先学习代码基础 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

 

看不懂代码，理解不了意思，请先自行学习基础 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

 

请认认真真看这段文字，代码只是示例代码要看懂和改造的。

 

初学者，请先学习代码基础 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

 

看不懂代码，理解不了意思，请先自行学习基础 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

参考代码

 

Dim app As New MSWord.Application
try
    Dim dlg As new OpenFileDialog
    dlg.MultiSelect = True
    If dlg.ShowDialog = DialogResult.OK Then
        Dim t As Table = Tables("申请人基本情况")
        For Each filename As String In dlg.FileNames
            Dim nr As Row = t.addnew
            Dim doc = app.Documents.Open(fileName)
            Dim dt = doc.Tables(1)
            nr("姓名") = dt.Cell(2, 3).Range.text.tostring
            nr("性别") = dt.Cell(2, 5).Range.text.tostring
            nr("年龄") = dt.Cell(3, 3).Range.text.tostring
            nr("民族") = dt.Cell(3, 5).Range.text.tostring
            nr("文化程度") = dt.Cell(4, 3).Range.text.tostring
            doc.saved = True
            doc.close
        Next
    End If
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
    app.Quit
End try

 

参考这个

 

http://www.foxtable.com/webhelp/scr/1299.htm

 

http://www.foxtable.com/webhelp/scr/2878.htm

 

可以打印子表数据

 

http://www.foxtable.com/webhelp/scr/2886.htm

 

http://www.foxtable.com/webhelp/scr/0091.htm

 

不然，你就要在foxtable做一个【总表】，把所有信息都弄到这个表里面，再输出到word。