实现：今天创建的数据，才能跨表引用
代码如下，应该是不严谨的，麻烦老师指教。
If e.DataCol.Name = "第一列" Then
If e.NewValue Is Nothing Then
e.DataRow("第二列") = Nothing
e.DataRow("第三列") = Nothing
Else
Dim dt As Date = Date.Today
If e.DataRow("time") = dt Then
Dim dr As DataRow
dr = DataTables("表B").Find("[第一列] = '" & e.NewValue & "'")
If dr IsNot Nothing Then
e.DataRow("第二列") = dr("第二列")
e.DataRow("第三列") = dr("第三列")
End If
End If
End If
End If
加好友 
发短信
Post By：2015/11/29 20:12:00 [只看该作者]
