表事件
表A_DataColChanged
If e.DataRow.IsNull("LineNumber") = False
Dim dr As DataRow = DataTables("表B").Find("Line='" & e.DataRow("LineNumber") & "'")
If dr Is Nothing Then
dr = DataTables("表B").AddNew()
dr("Line") = e.DataRow("LineNumber")
End If
DataTables("表B").DataCols("Line").RaiseDataColChanged(dr)
End If
表B_DataColChanged
If e.DataCol.Name = "Line" Then
Dim dr As DataRow = DataTables("表A").Find("LineNumber='" & e.NewValue & "'","StartPointNumber")
If dr IsNot Nothing Then
e.DataRow("StartPointNumber") = dr("StartPointNumber")
e.DataRow("StartX") = dr("StartX")
End If
dr = DataTables("表A").Find("LineNumber='" & e.NewValue & "'","EndPointNumber desc")
If dr IsNot Nothing Then
e.DataRow("EndPointNumber") = dr("EndPointNumber")
e.DataRow("EndX") = dr("EndX")
End If
e.DataRow("TotalPoints") = val(e.DataRow("EndPointNumber")) - val(e.DataRow("StartPointNumber"))
End If
加好友 
发短信
Post By：2020/7/9 21:43:00 [显示全部帖子]
