Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
下载信息 [文件大小: 下载次数: ] | |
![]() |
传表上来,我帮你设置一下代码。
小组人员表的DataColChanged事件代码改为:
Select Case e.DataCol.Name
Case "员工ID","原小组ID"
Dim dr As DataRow = e.DataTable.Find("员工ID = '" & e.DataRow("员工ID") & "' And 小组ID = '" & e.DataRow("小组ID") & "'", "开始日期 Desc")
If dr IsNot Nothing Then
e.DataRow("开始日期") = dr("结束时间")
e.DataRow("开始时间") = dr("结束时间")
End If
End Select