01.Public Function Check1(ByVal ID As String) As String
02. Dim sql As String = String.Format("SELECT * FROM DocList_Approve WHERE DocApNum='{0}' ", ID)
03. Dim dr As SqlDataReader = SqlHelper.ExecuteReader(ConnectionString, CommandType.Text, sql)
04. If Not dr.HasRows Then
05. Return "~/images/no-icon.png"
06. Else
07.
08. sql = String.Format("SELECT Ap_status FROM DocList_Approve WHERE DocApNum='{0}'and AP_Status=0", ID)
09. dr = SqlHelper.ExecuteReader(ConnectionString, CommandType.Text, sql)
10. If dr.HasRows Then
11. Return "~/images/no-icon.png"
12. Else
13. Return "~/images/check-icon.png"
14. End If
15. End If
16. End Function
Quote:
