根据产品ID删除产品表里的图号
DataTables("产品表").ReplaceFor("产品图号", Nothing, "[产品ID] = '" & Forms("窗口名称").Controls("textbox1").text & "'")