求教,代码怎么写?学习中.. - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "工号"
        Dim dr1 As DataRow
        dr1 = DataTables("人员资料").Find("[工号] = '" & e.NewValue & "'")
        If dr1 IsNot Nothing Then
            dr("姓名") = dr1("姓名")
        End If
    Case "开始时间","完成时间"
        If dr.IsNull("开始时间") = False And dr.IsNull("完成时间") = False Then
            dr("累计用时时")=(dr("完成时间")- dr("开始时间")).Hours
            dr("累计用时分")=(dr("完成时间")- dr("开始时间")).Minutes
        End If
End Select

[此贴子已经被作者于2010-8-12 16:00:01编辑过]

主题：求教,代码怎么写?学习中..