If e.DataCol.Name = "产品编号" Then If e.NewValue Isnot Nothing Then Dim dr As DataRow dr = DataTables("产品").Find("[产品编号] = '" & e.NewValue & "'") If dr Is Nothing
dr = DataTables("产品").addnew
dr("品名") = e.DataRow("品名") dr("型号") = e.DataRow("型号") dr("规格") = e.DataRow("规格") dr("单价") = e.DataRow("单价") End If End If End If