TD缺陷修改时间初始化

BUG属性中的Modify往往不是我们需要的最后修改时间,所以我们需要从历史记录中进行刷新.

这个功能可以扩展思路,其主要是帮助我们在进入项目后,将我们需要的内容进行同步更新.代码如下:

Sub Defects_EnterModule

  On Error Resume Next

  set com = TDConnection.Command

      com.CommandText = "update BUG set BG_USER_04 = (select convert(varchar(10),max(HS_CHANGE_DATE),20) from HISTORY where convert(varchar(70),BUG.BG_BUG_ID) = HISTORY.HS_KEY and HISTORY.HS_TABLE_NAME = 'BUG' GROUP BY HISTORY.HS_KEY)"

  Set RecSet = com.Execute

  On Error GoTo 0