主题：请教增加行

 代码实现了规格不为空了吧？

 楼主，我看不懂你的意思。

 应该不会是这段代码的问题吧。

 你用msgbox()弹出相关的值看一看，关键是看最里面的代码是否有执行。

 楼主自己调试一下。

 楼主，把代码改成下面这样，，看是否弹出消息框。

 如果有弹出，就看一下你设置的关联是否正确，是否存在“规格”，对应的表是否正确。

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

 删除重复代码。

Dim dt As DataTable = DataTables("仓库")
Dim guiges As List(Of String) = dt.GetUniqueValues("规格 is not null", "规格")

Dim idxs As String = ""
For Each guige As String In guiges
    Dim dr As DataRow = dt.Find("规格 = '" & guige & "'")
    idxs = idxs & dr("_Identify") & ","
Next

idxs = idxs.Trim(",")

DataTables("订单").DeleteFor("_Identify not in (" & idxs & ")")

把上面的代码，直接用命令窗口执行一遍，就会去掉重复的规格了。