主题：关于导入数据

需求：

1、目前数据库的表名是英文的，例如员工档案YGDA。想在导入时，通过选择中文命名的文件，自动对应要导入的对像表，且界面显示是中文名称。

2、如下图：在选择导入文件“员工档案”后，希望自动在前台显示导入对像表中显示“员工档案”，但在后台执行导入时又要对应英文表名“YGDA”。

 
此主题相关图片如下：导入数据.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:导入数据时在选择文件后自动辨别中文表名.foxdb

这个答案好像没有针对我们提的需求来说哦
你说的这个在哪个地方设？
我现在的需求是这样，所有导入的都调用这一个导入窗口
所以想通过选择的导入文件中文名，自动找到对应的表。

要导入的EXCEL文件名是可以确定和表的标题一致，都是中文名称，比如“员工档案”。

目前的需求是系统中所有涉及要导入数据的表，均共用这一个导入窗口。我是想怎么让用户在第1步选择好导入文件后，能够在第2步清楚选择要导入的对象表，最好是中文名称，目前我是手工定义了几个项目（但是英文表名）供用户来选，所要最终想解决这个问题。

因为第一步已做了将选择的文件名称赋值到第2步的ComboBox1中。然而在[导入数据]按钮中转换了所有表，如果判断选择文件的名称不在转换的范围内，提示：文件名称不对，请检查修改。

已经OK了，谢谢。

主要是所有导入共用一个窗口，希望通过选择文件后自动匹配对应接收表，然而文件名通常是中文的，如果表名是中文的那么就无需转换，如果英文的，就要先转换好，让系统自动匹配。

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 = "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() '保存数据