聽說幸福…在山的那邊 (浪機子)

 --連接的方法 

  gv.DataSource = vReader

  gv.DataBind()

--欄位轉為圖檔

  Function chart(ByVal hourindex As GridViewRow, ByVal E As Integer) As String     

   Dim I As Integer

   Dim WKIMAGE As String

   Dim WKHOUR As String

   Dim HOUR As String 

   HOUR = "Hour" & E  --組成欄位成為table中的變數名稱

   WKHOUR = DataBinder.Eval(hourindex.DataItem, HOUR)

   WKIMAGE = " "

   For I = 1 To 4

      If Mid(WKHOUR, I, 1) = "0" Then

       '用ASP:會傳回的值是STRING，而非ＡＳＰ認得的物件，所以要直接用HTML的方法

       '讓HTML去編譯他，因為HTML認得
       '像這種在CLIENT可處理的，就不用回到SERVER去處理，如此是費事

       'WKIMAGE = WKIMAGE & "
                        ImageUrl= '~/0.jpg' />"

        WKIMAGE = WKIMAGE & ""  組成html的指令

      Else

       If Mid(WKHOUR, I, 1) = "2" Then

          WKIMAGE = WKIMAGE & ""

       Else    

         'WKIMAGE = WKIMAGE & "
                  ImageUrl= '~/1.jpg' />"

          WKIMAGE = WKIMAGE & ""

       End If

      End If

        Next

        Return WKIMAGE

    End Function  

----------------------------------------------------------------------------------------------------------------------------------------

  --欄位的傳送及接收方式

  

  --正常欄位的接收方式

 

 

 

 -- 將其boundfield轉成templatefield後，其連接的資料會變成用bind(“變數名稱”)

 

    

                  

   --將其boundfield轉成templatefield後，再用副程式方法將資料傳入 

  pression="Hour1">