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

 --連接的方法 
  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">
     
     
     < asp:TableCell ID="TableCell1" runat="server" >
    <%#chart(Container, 1)%>  
   
    
  --Container是固定的名稱，表示傳入的為該view的資料
    <%#chart(Container, 13)%>