0

私は vb.net 関数を持っています。これは、グリッドビューを返して電子メールで送信することを行っています.問題は、電子メールで関数を呼び出すと、関数によって何も返されなくても電子メールが送信されることです. 空メールは一切送りません。関数が何も返さない場合は、メールを送信しないでください。これが私の機能です

Public Function emaildata(ByVal grdv As GridView, ByVal chk As String, ByVal celpos As Integer) As GridView
        Dim comm As OleDbCommand = New OleDbCommand()
        Dim bpv As String = ""
        Dim gv As New GridView
        For Each gvrow As GridViewRow In grdv.Rows
            Try
                Dim rdobtn As RadioButtonList = CType(gvrow.FindControl(chk), RadioButtonList)
                If rdobtn.SelectedValue.Equals("5") Or rdobtn.SelectedValue.Equals("1") Or rdobtn.SelectedValue.Equals("6") Or rdobtn.SelectedValue.Equals("4") Or rdobtn.SelectedValue.Equals("2") Then
                    If bpv <> "" Then
                        bpv += ","
                    End If
                    bpv += gvrow.Cells(celpos).Text
                    comm.CommandText = "SELECT row_number() over(order by rownum) Sr, to_char(chq_num) Cheque#,to_char(bpv_amt,'9,999,999,999') Amount,vch_nar Narration,bnf_nam PartyName,acc_des Bank from  CHECK_DATA where bpv_num in(" & bpv.ToString() & ") and BPV_DTE=to_date('" & TreeView2.SelectedValue & "') union all SELECT null,'Total :',to_char(sum(bpv_amt),'9,999,999,999') Amount,null,null,null from  CHECK_DATA where bpv_num in(" & bpv.ToString() & ") and BPV_DTE=to_date('" & TreeView2.SelectedValue & "')"
                    comm.CommandType = CommandType.Text
                    comm.Connection = con
                    Dim da As New OleDbDataAdapter(comm)
                    Dim ds As New DataSet
                    da.Fill(ds)
                    gv.DataSource = ds
                    gv.DataBind()
                End If
            Catch ex As Exception
                Response.Write("There is Problem In Cheque Approval System Please Contact With IT")
            End Try
        Next
        Return gv
    End Function

そして、私はこれを件名として電子メール機能で呼び出します

email("malik.adeel@shakarganj.com.pk", "[Cheque Approval] GM Finance Reviewed (" & TreeView2.SelectedValue & ")" & subsmcnt(GridView5, "chkStatusGM", 4), gridhtm(emaildata(GridView5, "chkStatusGM", 4)))

何も返さない場合、emaildata(GridView5, "chkStatusGM", 4)メールを送信しないようにするにはどうすればよいですか?

4

1 に答える 1

2

おそらく最も簡単なのは、プロパティにGridViewが含まれているかどうかを確認することです。GridViewRowsCount

Dim grdEmail = emaildata(GridView5, "chkStatusGM", 4)
If grdEmail.Rows.Count > 0
    email("malik.adeel@shakarganj.com.pk", 
          "[Cheque Approval] GM Finance Reviewed (" & TreeView2.SelectedValue & ")" & subsmcnt(GridView5, "chkStatusGM", 4), 
          gridhtm(grdEmail))
End If
于 2012-12-17T09:32:31.857 に答える