主题：新增表的关联取值问题

Dim s As Row = Tables("A_RQ").Current
If s IsNot Nothing  Then
     Dim r As DataRow = Tables("A_CL").DataTable.AddNew
    r("日期") = s("日期")
End If

原因： 你设置了A_CL的筛选条件，当新增一行，此行的日期为空，不符合筛选条件，所以此行户不会显示在Tables("A_CL")中，r为nothing，导致出错。

提示： 只有非副本的Normal型Table控件，新增行才会无条件显示在Table中。