If e.DataCol.Name = "型号" Then '发生变化的是型号列吗? e.DataRow("模具图") = DataTables("模具图").GetComboListString("模具图", "型号 = '" & e.DataRow("型号") & "'" ).replace("|", vbcrlf) '在工程表中找到型号列End If