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

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

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

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

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