Dim Val As Date = Date.Today
If InputValue(Val, "筛选","请输入导入数据的截至日期:") Then
Output.Show(Val)
End If
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "excel文件|*.xls;*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim mg As New Merger
mg.SourcePath = dlg.FileName
Dim book As new XLS.Book(dlg.FileName)
mg.SourceTableName = book.Sheets(0).Name & "$"
mg.DataTableName = "储蓄积分"
mg.Format = "Excel"
mg.Merge()
End If
先输入截至日期给val,然后导入数据,倒入的数据不含截至日期。目前导入的是2015年底的数据,截至日期是20151231
到3月底要导入数据的截至日期是20160331,到六月是20160630,
接着把VAL赋值给截至日期。
代码可能是:FOR EACH 数据行 in table 中
IF 截止日期=“”then “截至日期”=VAL
具体怎么写呢?
[此贴子已经被作者于2016/2/20 20:40:19编辑过]