主题：不要每次发生变化都 增加行

If e.DataRow("shuliang") Then

Dim cc As Integer =e.DataRow("shuliang")
Tables("weixindanhao.weixin.weixinminxi").addnew(cc)
End If

 

代码如上

 

场景

    如果原先有shuliang的情况  并且有相应多的子表行

    这时如果改变数量的话 想把子表的数量编程新输入的shuling

 

假如原先 shuliang为5  并且有5个子表行

             现在想把数量改成 3 

             如何生成新的3行子表数据，并且删除原先的5行子表数据

            让当前行的子表数据行为 3行 而不是3+5 行

     

         

If e.DataRow("shuliang") Then
    Dim t As Table = Tables("weixindanhao.weixin.weixinminxi")
    For i As Integer = t.rows.count-1 To 0 Step -1
        t.rows(i).delete
    Next
    Dim cc As Integer =e.DataRow("shuliang")
    t.addnew(cc)
End If