If dr Is Nothing Then If mr("科目类别") = "2负债" OrElse mr("科目类别") = "4权益" Then If e.DataRow.IsNull("科目类别") Then '身份证号码是否为空 Return '如果为空,则清除出生日期 Else mr("余额") = mr("贷方") - mr("借方") mr("方向") = "贷" End If Else mr("余额") = mr("借方") - mr("贷方") mr("方向") = "借" End If dr = mr 换个位置 End If