表《项目》的 Datecolchanged 事件如下：（还请帮看看哪里出了问题，多谢了）
Dim dr1 As DataRow
Dim s As String = "项目编号"
With DataTables("项目跟进")
dr1 = .Find(" 项目编号 = '" & s & "'","跟进日期 Desc") '找出最后一次订购PD01产品的记录
End With
If e.DataCol.Name = "项目编号" Then
Dim nms() As String = {"跟进日期","下次跟进"}
If e.NewValue Is Nothing Then
For Each nm As String In nms
e.DataRow(nm) = Nothing
Next
Else
Dim dr As DataRow
dr = DataTables("项目跟进").Find("[项目编号] = '" & e.NewValue & "'")
If dr IsNot Nothing
For Each nm As String In nms
e.DataRow(nm) = dr(nm)
Next
End If
End If
End If
加好友 
发短信
Post By：2019/8/10 0:02:00 [显示全部帖子]
此主题相关图片如下：项目状态填写.png