主题：尽然被这个小问题卡了

这样？

Select e.DataCol.Name
    Case "借方金额"
        If e.DataRow.IsNull("借方金额") = False  Then
            e.DataRow("贷方金额") = Nothing
        End If
    Case "贷方金额"
        If e.DataRow.IsNull("贷方金额") = False Then
            e.DataRow("借方金额") = Nothing
        End If
End Select