主题：自动输入并更新的问题

好像这样效率高一点吧。

Select Case e.DataCol.Name
    Case "颜色","序号"
        Dim dt As DataTable = DataTables("委外明细")
        Dim ys As String = StrToNarrow(e.DataRow("序号"))
        dt.DeleteFor("档案编号 = '" & e.DataRow("档案编号") & "' And [序号] Not In ('" & ys.Replace(",","','") & "')") 

        Dim Vs() As String = StrToNarrow(ys).Split(",")
        Dim s As String = "|" & dt.GetComboListString("序号","[档案编号] = '" & e.DataRow("档案编号") & "'","_Identify") & "|"
        For i As Integer = 0 To Vs.Length - 1
            If not s.Contains(Vs(i))
                Dim dr As Row  = Tables("委外明细").AddNew
                dr("档案编号") = e.DataRow("档案编号")
                dr("序号") = Vs(i)
                If e.DataRow("颜色").Split(",").Length -1 >= i
                    dr("颜色") = e.DataRow("颜色").Split(",")(i)
                End If
            End If
        Next
End Select

如果用二楼的要加个判断，否则如果颜色列的分隔数据少于序号列会报错的。