楼主,这个应该是很简单的。下面代码放DataChanged事件中即可。
If e.DataCol.Name = "完成日期" Then Dim d1 As Date = e.DataRow("完成日期") Dim d2 As Date = e.DataRow("初始日期") Dim ts As TimeSpan = d1 - d2 e.DataRow("所耗用时长") = ts.TotalHours End If