主题：自动增加行

此主题相关图片如下：1.png

 

在这个界面上，比如哪个单据错误，需要修改，我希望点修改，打开修改窗体的同时，在原有单据的基础上，增加一行负数记录来冲销错误的发货记录，修改代码如下

If Tables("客户发砖总表").Current IsNot Nothing Then

    If MessageBox.Show("该单录入错误,需录入一笔负数记录冲账原来的的错误发货记录","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then

        Forms("编辑客户发砖").open

'---增加一笔负消费

Dim r1 As Row=Tables("客户发砖明细表").AddNew

 

'---增加一笔负消费

    Else

        Return

    End If

    If MessageBox.Show("请录入正确的发单信息","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then

        Forms("新增客户发砖").open

    End If

    Return

End If

Dim r1 As Row=Tables("客户发砖明细表").AddNew

这行代码，现在这样写，选中需要修改的单据时，窗体是打开了，但是不能自动增加一行，需要再次点修改才能发现增加一行，自动增加一行负记录的数据我写不出来，请老师帮忙一下，最后的效果如下，即自动增加一行，把发砖数量改为 -222

 

此主题相关图片如下：2.png

 

如果你这个窗口是模式窗口，要先增加行，再打开窗口。