Select Case e.DataCol.Name
Case "商品条码"
DataTables("FRID标签").LoadFilter = "商品条码 = '" & e.newvalue & "'"
DataTables("FRID标签").Load
Dim dr1 As DataRow
'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
dr1 = DataTables("FRID标签").Find("[商品条码] = '" & e.DataRow("商品条码") & "'")
If dr1 IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
dr1("商品备注") = e.DataRow("销售退回")
DataTables("FRID标签").Save()
End If
End Select
加载商品条码1=1，商品条码2=2，..........还保留1和2......追加数据
加好友 
发短信
Post By：2020/11/15 18:06:00 [只看该作者]
