主题：新增加行时问题

Dim r As Row =  Tables("报表").Current
        Dim i As Integer
        For  i = 1 To t.TotalDays\7 +1
           
            Dim y As Integer = st.Year
            Dim w As Integer = st.DayOfWeek '算出今天是星期几
            Dim dt1 As Date = st.AddDays(-w) '获取本周的第一天
            Dim dt2 As Date = st.AddDays(6 - w) '获取本周的最后一天
           
            r("开始日期") = dt1
            r("结束日期") = dt2
            st = st.AddDays( 8 )
            
                       '
            DataTables("报表").AddNew
        Next
    End If
为什么第二次循环后的数值还是存在第一行，而不是新增加的行？

    st = StartDate.Text
    et = EndDate.Text
         t = et - st
        Dim r As Row =  Tables("报表").Current
        Dim i As Integer
        For  i = 1 To t.TotalDays\7 +1
           
            Dim y As Integer = st.Year
            Dim w As Integer = st.DayOfWeek '算出今天是星期几
            Dim dt1 As Date = st.AddDays(-w) '获取本周的第一天
            Dim dt2 As Date = st.AddDays(6 - w) '获取本周的最后一天
           
            r("开始日期") = dt1
            r("结束日期") = dt2
            st = st.AddDays( 8 )
                      
            DataTables("报表").AddNew
        Next

本意是先增加了一行后，再根据时间长短自动进行添加工作，Bin的方法我试过当然可以，但前面就会又多出一行。

 sl = DataTables("登记表").Compute("Sum(数量)","[日期] >= #" & dt1 & "# And [日期] <= #" & dt2 & "# ” And "状态 lile & "在用" & "'" )实在太长了弄不好了，要求在某个时间段内状态列里如果是在用就算上数量

上面也不对，编辑通不过

sl = DataTables("登记表").Compute("Sum(数量)", "状态 Like '*在用* '" )想找出状态里有在用字样的行统计数据为什么这样写不行

sl = DataTables("固定资产登记表").Compute("Sum(数量)", "资产状态 Like '在用'" )这样写可以但只找出与“在用”相同的

*是可以表示0或多少字符，*在用*这种表不一定要求“在用”在中间

编辑都通不过 象*在用*这种，认为有问题，但不知问题到底在哪？