窗口表TimerTick，如果新增行，复选框勾选，作出标记

For Each dr As Row In Tables("应诉通知书_Table1").Rows
    If dr.DataRow.RowState = DataRowState.Added Then
        dr.checked = True
    End If
Next

下面这段代码新增的多行为什么没有勾选上？

If Forms("应诉通知书").Opened Then
    Dim t As Table = Forms("应诉通知书").Controls("Table1").Table
    For Each r As Row In Tables("批量增加_table1").GetCheckedRows
        Dim r2 As Row  = t.AddNew
        r2("案号") = r("案号")
        r2("案由") = r("案由")
        r2("审判程序") = r("审判程序")
        r2("当事人") = r("当事人")
        Tables("应诉通知书_Table1").Current("制作日期") = Date.Now
        Tables("应诉通知书_table1").Sort = "制作日期,案号"   ’合并单元格
    Next
End if