请教:红色字体的条件表达式该怎么写呢        

 If e.DataRow("收款方式") Like "%支付宝%" Then

            Dim val As String

            Dim cmd As New SQLCommand

            cmd.C

            cmd.CommandText = "Select 科目代码 Fro m {会计科目} Where 科目名称 like \'暂估款\' and 科目代码 like \'1131%\'"

            val  = cmd.ExecuteScalar()

            If val <> "" Then

                e.DataRow("科目代码") = val

            End If

        End If