有一"收款人"列,想筛选出收款人是当前用户的行,如何写表达式?

 Dim Cols1() As String = { "收款日期", "托运单号","货物编号","实得运费" }
    Dim Cols2() As String = { "日期","托运单号","货物编号","收入项目_提付收入" }
    For Each dr1 As DataRow In DataTables("货物转运管理").Select("是否收款=\'已收款\' And 收款人=\'User.Name\'")
        Dim dr2 As Row = Tables("收支结余流水账").AddNew()
        For i As Integer = 0 To Cols1.Length -1
            dr2(Cols2(i)) = dr1(Cols1(i))
        Next
    Next
运行时没提示出错,但就没筛选出任何结果,不知问题出在哪?请高手赐教!