主题：跨表引用只能改变关联表的1行

 改一下

Select Case e.DataCol.Name
    Case "日期_报告发放日期","日期_报告交业务室"
        Dim drs As List(Of DataRow) = DataTables("理化检测辅表").Select("委托书编号 = '" & e.DataRow("委托书编号") & "'")
        For Each dr As DataRow In drs
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        Next
End Select