Me.oExport_Detail.SaveDataSet() If Me.oExport_Detail.Rules.HasBrokenRules = True Then ds = oExport_Detail.GetCurrentDataSet() ' strDLN = Me.oExport_Detail.Rules.GetAllBrokenRules() For IndexBrokenRule = 0 To _ Me.oExport_Detail.Rules.ErrorProviderBrokenRuleCount - 1 orule=Me.oExport_Detail.Rules.GetErrorProviderRule(IndexBrokenRule) strDLN = ds.Tables(0).Rows(orule.Row).Item("DLN") strDLN = strDLN.Substring(6) myBrokenRules.Add(New ExportBrokenRulesEventArgs(strDLN, orule.ErrorText)) Next