直接查询合同主号一样的那一行即可。
Dim fdr As DataRow = e.DataTable.Find("合同主号 = '" & e.DataRow("合同主号") & "'", "_Identify desc")