dr = DataTables("项目跟踪表").Find("[编号] = '" & e.NewValue & "'")
改为:
dr = DataTables("任何表的表名,只要有数据,不管是本编还是其他表").Find("[编号] = '" & e.NewValue & "'")