Dim dr As DataRow = DataTables("明细分类账").Find("凭证号 = '" & e.DataRow("销售收入科目编号") & e.DataRow("对应科目编号") & "'")