以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  不要每次发生变化都 增加行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82566)
--  作者：jinzhengbe
--  发布时间：2016/3/20 20:04:00
--  不要每次发生变化都 增加行

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 行

     

         

--  作者：大红袍
--  发布时间：2016/3/20 23:18:00
--  
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