主题：[求助]查询表定时更新后，自动复制符合条件的行到另外一张表，无法执行

 If e.DataCol.Name = "日期"  '自动生成调拨明细
    If e.DataRow("单位名称") = "一公司" Then
        Dim nma() As String = {"创博油枪号","升数","持卡人姓名"} 'A表数据来源列
        Dim  nmb()  As  String = {"创博油枪号","出库数量","交接人"} 'B表数据接收列
        Dim  dr  As DataRow = DataTables("调拨明细").AddNew
        For i As Integer = 0 To nma.Length - 1
            dr(nmb(i)) = e.DataRow(nma(i))
        Next
    End  If
End  If