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

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 Pt As String = e.Row("材料名称")
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

谢谢甜版主！

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

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

 这样处理一下，参考代码

 

Dim str As String = "2014-12-27 0:00:00|2014-12-28 0:00:00"
Dim reg As new System.Text.RegularExpressions.Regex(" +.+\|+")
str = reg.replace(str & "|", "|")
msgbox(str.Trim("|"))

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

 代码写给你了啊

 

Dim str As String = DataTables("材料领用表").GetComboListString("领用时间","使用地点 = '" & djmc.value & "'")
Dim reg As new System.Text.RegularExpressions.Regex(" +.+\|+")
str = reg.replace(str & "|", "|")
e.sender.ComboList = str.Trim("|")

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

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

 

http://msdn.microsoft.com/zh-cn/library/system.text.regularexpressions.regex.aspx

 

http://baike.baidu.com/link?url=qJs-gDin3vhJx1PHgtnOWaDazRCFtdnrjxCMSsL7N0pXamQq6YxwhAK8omSm1rpsXFhMSh3oxR73dr-z3va5PK

 

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