主题：非关联表之间的数据同步

甜版 ，今天又遇到一个问题， 我重新做了一个设备信息的EXCEL 表  新建窗口做了一个导入BUTTON ，编码为

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim mg As New Merger
    mg.sourcepath = dlg.FileName
    mg.Format = "excel" '指定格式
    mg.SourceTableName = "设备信息表$" '指定要合并的表
    mg.DataTableName = "设备信息表" '指定接收数据的表
    mg.Merge() '开始合并 
End If

执行后能正常导入，但是设备型号有几行不显示，几行的格式都带横线、其他纯数字和汉字的都可以正常显示。另外我导入，最有一行后面多加载了几十行空行，我查了一下帮助，里面也没有特别交代，请甜版主费心指点！

甜版主，你好 我想在一个表中的drawcell 事件中 实现对车辆保养周期利用颜色的不同进行提醒， 代码报错，请甜版主给指点一二！另外我看到帮助文件中说drawcell 中的代码要简洁，不要太多，我这样的代码是不是合理如如果不合理应该用哪个知识点！谢谢！下面是代码！

Dim d1 As Date = e.Row("上次保养时间")
Dim d2 As Date = Date.today
Dim t As TimeSpan = d2 - d1
Dim d As Single = t.TotalDays
Dim Pts As List(of String) = e.Row("材料名称") '此句报错("System.String"的对象强制转换为类型"System.Collections.Generic.List`1[System.String]".)
For Each Pt As String In Pts
If e.Row.IsNull("上次保养时间") = False Then
Select Case pt
Case "机油"

If d >= 83 AndAlso d < 89 Then
e.style = "近期"
Else If d >= 89 AndAlso d < 97 Then
e.Style = "到期"
Else If d >= 97 AndAlso d < 105 Then
e.style = "超期"
Else If d >=105 Then
e.Style = "严重超期"
End If
Case "齿轮油"
If d >= 173 AndAlso d < 179 Then
e.style = "近期"
Else If d >= 179 AndAlso d < 187 Then
e.Style = "到期"
Else If d >= 187 AndAlso d < 195 Then
e.style = "超期"
Else If d >=195 Then
e.Style = "严重超期"
End If
End Select
End If
Next

谢谢甜版主！

甜版主 你好  有个小问题请赐教！

e.sender.ComboList = DataTables("材料领用表").GetComboListString("领用时间","使用地点 = '" & djmc.value & "'") 为什么 选出的 日期后面还有0:00：00呢？ 比如辞了领用表中 领用时间是2014-12-27 在这个组合框中出现的是 2014-12-27 0:00:00 ！

甜版，这个组合框里的日期很多，都是从领用表中生成的，几乎每天都在领用，为什么表里的日期正常，我查看了表结构 ，列属性也是date， 用组合框引用过来就变成了有后缀儿的格式呢？我在组合框的datformat中设置也不行 ！请甜版主再费费心！

甜版你好，谢谢你给写的代码！我在组合框enter事件内输入后，执行的时候这个组合框只显示一个日期，其他的日期不显示，换回原来的代码虽然后面有0:00:00 但是日期都显示！请费心赐教！谢谢了！

我在帮助文件找System.Text.RegularExpressions.Regex 的相关内容，搜索不到！所以还得麻烦甜版这个大神呀！！

甜版、各位版主你们好！元旦还打扰各位非常不好意思！我有个小问题！我想实现在一个查询窗口实现按照设计好的模板导出查询后的内容保存到选定的文件夹后，后自动打开；我在“导出（button）”的click事件中输入如下代码：

非常感谢甜版主，就是这个效果！