With DataTables("导入核算项目科目组合表_金蝶核算项目科目组合表")
.DataRows.Clear() '清除所有行
End With
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xlsx|Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
MessageBox.Show("你选择的是:" & dlg.FileName,"提示") '提示用户选择的文件
End If
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("导入核算项目科目组合表_金蝶核算项目科目组合表").StopRedraw()
Dim nms() As String = {"科目名称","安全设施费","办公费用","城市维护建设税","待抵扣进项","待认证进项税金","地方教育费附加","分包成本","福利费","工程材料","工程施工","管理费用","计算抵扣进项","简易计税","建造合同成本","建造合同收成本11","建造合同收成本3","建造合同收入","建造合同收入11","建造合同收入3","教育税费附加","进项税金","进项税金转出","临时设施费","内部往来","其他费用","人工费用","施工机械使用费","水电费","所得税","项目附征个税","销项税额抵减","销项税金","已交税金","印花税","应付账款","应交税费","应交增值税","应收账款","营业税","营业税金及附加","预付账款","预交所得税","预征税金","暂收款","招待费用","折旧费用","职工教育经费","主营业务成本","主营业务收入","总部往来"}
For n As Integer = 1 To Sheet.Rows.Count -1
Dim bh As String = sheet(n,0).Text
Dim dr As DataRow = DataTables("导入核算项目科目组合表_金蝶核算项目科目组合表").Find("科目名称 = '" & bh & "'")
If dr Is Nothing Then '如果不存在同编号的订单
dr = DataTables("导入核算项目科目组合表_金蝶核算项目科目组合表").AddNew()
End If
For m As Integer = 0 To nms.Length - 1
dr(nms(m)) = Sheet(n,m).Value
Next
Next
Tables("导入核算项目科目组合表_金蝶核算项目科目组合表").ResumeRedraw()
DataTables("核算项目科目组合表").DataCols("科目名称").RaiseDataColChanged()
Dim dt As DataTable = DataTables("导入核算项目科目组合表_金蝶核算项目科目组合表")
For Each dr As DataRow In dt.DataRows
If dr.RowState = DataRowState.Modified AndAlso dr.IsNull("更新记录_更新日期") OrElse dr("更新记录_更新日期") < Date.Now Then
dr("更新记录_更新日期") = Date.Now
'dr("更新记录_更新时间") = Format(Date.Now,"HH:mm:ss")
dr("更新记录_更新人") = User.Name
End If
Next
DataTables("导入核算项目科目组合表_金蝶核算项目科目组合表").Save()
DataTables("导入核算项目科目组合表_金蝶核算项目科目组合表").AllowEdit = False
加好友 
发短信
Post By：2019/10/23 17:43:00 [显示全部帖子]
