主题：请教增加行

Select Case e.DataCol.Name
    Case "规格"
        If e.DataRow.IsNull("规格") = False Then
            If e.DataRow.GetChildRows("规格").Count = 0 Then
                Dim dr As DataRow = DataTables("仓库").AddNew()
                dr("规格") = e.DataRow("规格")
            End If
        End If
End Select

怎样修改才能使仓库增加的行不为空行，规格列不重复的规格，谢谢！！！！！！

在订单表编辑规格，列表项目是仓库表的规格列，如果有就在列表项目提取，没有就创建在仓库表新增行里，现在就是输入已有的规格，仓库表增加空行，新建的没问题。

If e.DataCol.Name = "规格" Then
    If e.NewValue Is Nothing Then
        MessageBox.Show("规格不允许为空!")
        e.Cancel = True
    End If
End If

这个也试过，仓库表还是增加空行，没则只有到这里来求教。

我是刚刚开始学，消息框不会用，要实现您说的“代码实现了规格不为空了吧？”，应该怎么修改，谢谢！！！

谢谢！！！！

问题解决。

谢谢您给我的帮助，现在还有个新问题，仓库表里出现了重复的规格，能帮忙解决吗？谢谢！！！！

因表里有数据，又重没用过DELETE，是将上面的代码复制到订单表还是仓库表，能帮将仓库表的新增空行删除吗？

谢谢！！！