Select Case e.DataCol.name Case "产品编码" Dim dr As DataRow = DataTables("库存表").Find("产品编码 = '" & e.OldValue & "'") If dr Is Nothing Then dr = DataTables("库存表").AddNew() dr("产品编码") = e.DataRow("产品编码") dr("产品名称") = e.DataRow("产品名称") dr("产品规格") = e.DataRow("产品规格") Else DataTables("库存表").ReplaceFor("产品编码", e.DataRow("产品编码"),"产品编码 = '" & e.OldValue & "'") End If Case "产品名称","产品规格","采购价格" DataTables("库存表").ReplaceFor(e.DataCol.name, e.DataRow(e.DataCol.name),"产品编码 = '" & e.DataRow("产品编码") & "'") End Select