If e.DataCol.Name = "签订日期" Then '发生变化的是产品编号吗?
Dim D As Date = e.DataRow("签订日期")
Select Case true
Case D < cdate("2015-01-01")
dr("债务形成时间段") = "2015年1月1日之前举借债务"
Case cdate("2015-01-01") <= D andalso D <= cdate("2018-08-31")
dr("债务形成时间段") = "2015年1月1日至2018年8月31日之间举借债务"
Case D > cdate("2018-08-31")
dr("债务形成时间段") = "2018年8月31日之后举借债务"
End Select
End If