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
加好友 
发短信
Post By：2019/9/12 9:11:00 [显示全部帖子]
