主题：关于导入数据

问题不清晰，怎么知道YGDA对应的就是员工档案？ 除非你excel表的名称固定死YDGA

 

1、选择文件按钮

With e.Form
    Dim dlg As New OpenFileDialog
    dlg.Filter= "Excel 97-2003文件(*.xls)|*.xls|Excel 2007文件(*.xlsx)|*.xlsx"
    If dlg.ShowDialog = DialogResult.Ok Then
        .Controls("TextBox1").value = dlg.FileName
        Dim nm As String = FileSys.GetName(dlg.FileName)
        .Controls("ComboBox1").value = nm.SubString(0,nm.IndexOf("."))
    End If

End With

 

 

2、导入按钮

 

Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim mg As New Merger
mg.SourcePath = txt.Text  '指定路径文件
mg.Format = "excel" '指定格式
mg.SourceTableName = "YDGA" '指定要合并的表
mg.DataTableName = cmb.Text '指定接收数据的表
mg.Merge() '开始合并
DataTables(cmb.Text).Save() '保存数据

我始终无法理解这样的问题，蒙一下：

 

Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim mg As New Merger
mg.SourcePath = txt.Text  '指定路径文件
mg.Format = "excel" '指定格式
mg.SourceTableName = "Sheet1$" '指定要合并的表
Dim str As String = cmb.Text
Select Case str
    Case "员工档案"
        str = "YGDA"
    Case "学生档案"
        str = "XSDA"
     Case Else
       MessageBox.show("选择的文件不对")

       Return
End Select
mg.DataTableName = str '指定接收数据的表
mg.Merge() '开始合并
DataTables(str).Save() '保存数据

是不是每个excel文件的表名和文件名相同，例如：

 

"员工档案.xls"这个文件中的表是“员工档案”，只是要导入到foxtable中名为"YGDA"的表中
"学生档案.xls"这个文件中的表是“学生档案”，只是要导入到foxtable中名为"XSDA"的表中

 

你需要用代码处理这种应对关系：

 

员工档案对应YGDA

学生档案对应XSDA

 

如果我是蒙对了，那么感觉楼主也太被动了，因为这本是一个很简单的问题，不应该拖这么久的。

 

磨刀不误砍柴工，建议回头系统学习一下帮助文件。

 

看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。
三遍之后才开始做系统，先设计好表，想做什么功能，就做什么功能，遇到问题在帮助找答案，找不到的在论坛提问，不断遇到问题，不断解决问题，慢慢就熟悉了。
此外一定要先掌握《使用指南》，然后再看《开发指南