主题：[求助]表复制

表B的DataColChanged事件

Select Case e.DataCol.Name
    Case "接收时段","操作时段"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("接收时段") OrElse dr.IsNull("操作时段") Then
            dr("耗时") = Nothing
        Else
            Dim tp As TimeSpan = cdate(dr("完成日期")) - cdate(dr("开始日期")) 

            dr("耗时") = tp.TotalHours
        End If
End Select

http://www.foxtable.com/webhelp/scr/1513.htm