Messagebox.Show(1)

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
   
    Dim book As new xls.book(dlg.FileName)
    Dim sheet As xls.sheet = book.sheets(0)
 

Messagebox.Show(1.1)
  
    Dim mg As New Merger
    mg.Format = "excel" \'指定格式
    mg.SourcePath = dlg.FileName
    mg.SourceTableName = sheet.Name
Messagebox.Show(dlg.FileName)
Messagebox.Show(sheet.Name)

    mg.DataTableName = "出库明细"
    sts = new String(){"箱号","吊牌价","吊牌价格","折扣","数量","货号","颜色","尺码号","产品名称","产品条码"}

Messagebox.Show(1.2)
\'
    \'For Each s In sts
        \'mg.FieldMaps.add(e.Form.Controls(s).Value,s)
    \'Next
    mg.Merge()

Messagebox.Show(1.5)

    For Each dr As DataRow In DataTables("出库明细").DataRows
        If dr.IsNull("出库单号") AndAlso dr.IsNull("货号") = False Then
            dr("出库单号") = e.Form.Controls("出库单号").Value
        End If
    Next
End If

Messagebox.Show(2)

DataTables("出库明细").save()
Dim trv As WinForm.TreeView = Forms("货品入库").Controls("TreeView1") \'生成在途单的目录树
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "select 单号 From {出库记录} where 收货单位 =\'" & User.group & "\' And (货品状态 =0 Or 货品状态 Is Null)"
Dim dt As DataTable = cmd.ExecuteReader()
trv.BuildTree(dt,"出库单号")
trv.ExpandAll

MessageBox.Show("导入成功!")