主题：点击按钮写入到下一行

各位老师请帮忙，我设计了一个录入的窗口，下面的代码是按照系统帮助复制上去的，现在想实现如果我查找出来内容信息，在原来的内容信息空白处填写内容后点击新增按钮，这条信息不覆盖原来内容，新增一行写入。请大师帮忙代码怎么写。

With Tables("冷轧日报")  
    Tables("冷轧日报").Current.Locked = False
    If.Current IsNot Nothing Then
        .Current.Save()
End If
    If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
        Tables("冷轧日报").AddNew()
    End If
End With

此主题相关图片如下：3.jpg

我按照你给的代码修改后，没有实现点击新增按钮实现换行，我想实现表内有这条信息，这信息的其它字段为空，我填入这条信息为空的内容，点击新增按钮换行写入。

我按照你给的代码修改后，没有实现点击新增按钮实现换行，我想实现表内有这条信息，这信息的其它字段为空，我填入这条信息为空的内容，点击新增按钮换行写入。图片内就是修改后我测试还是写入到同一行内容里了。

此主题相关图片如下：6.jpg

不好意思有可能是我没有表述清楚，就是冷轧日报这个表已经有信息，比如上到工序已经录入完成，下到工序通过查找可以看到这条信息，同时在这条信息上填写这道工序需要填写的内容，然后点击新增按钮把这道工序的补充的内容和上道工序的内容同时新增一行记录。

不好意思有可能是我没有表述清楚，就是冷轧日报这个表已经有信息，比如上到工序已经录入完成，下到工序通过查找可以看到这条信息，同时在这条信息上填写这道工序需要填写的内容，然后点击新增按钮把这道工序的补充的内容和上道工序的内容同时新增一行记录。 此主题相关图片如下：3.jpg

是在子表里操作，谢谢

我有一个录入窗口，我在录入窗口原有的信息内容里有空白栏，我想在录入窗口空白栏处填写内容，写入到冷轧日报这个表里，希望在冷轧日报这个表里不在原有行了写入，希望新增一行写，新增这行的内容和原有行内容想同，同时也包括我新写入的内容。不知道这样的描述清楚吗？
此主题相关图片如下：1.jpg


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