表B_DataColChanged
If e.DataCol.Name = "操作" Then
Dim dr As DataRow = DataTables("表B").Find("编号 = '" & e.DataRow("编号") & "'","日期 DESC")
DataTables("表A").Find("编号 = '" & e.DataRow("编号") & "'")("当前状态")=dr("操作")
End If
<!--EndFragment-->