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

### 利用SQL直接秀出YYYY/MM/DD的型態 ###
select  top 1 onthejobdate from traininginq
select  top 1 convert(char(10),onthejobdate,111) from Traininginq
select  top 1 convert(char(10),dateadd("d",0,onthejobdate),111) from Traininginq
### 日期型態介紹，其他的請自已試囉 ###
select  top 1 convert(char(10),dateadd("d",0,onthejobdate),107) t107,
       convert(char(10),dateadd("d",0,onthejobdate),108) t108,
       convert(char(10),dateadd("d",0,onthejobdate),109) t109,
       convert(char(10),dateadd("d",0,onthejobdate),110) t110,
       convert(char(10),dateadd("d",0,onthejobdate),111) t111,
       convert(char(10),dateadd("d",0,onthejobdate),112) t112,
       convert(char(10),dateadd("d",0,onthejobdate),113) t113,
        convert(char(10),dateadd("d",0,onthejobdate),114) t114
from Traininginq

 

 

##利用Tablel來將檢核的資料放入，以確認是否正確 ######################################
    Sub checkdata(ByVal FileRec As String)
        Dim TabRow As TableRow
        Dim TabCell As TableCell
        Dim checkdata As String = ""
        Dim strRec As String()
        Dim numcells As Integer
        Dim i As Integer
        strRec = Split(FileRec, ",")
        numcells = UBound(strRec)
        '0課程代號,1課程名稱,2課程類別,3上課時數,4課程類別I,5課程類別II
        
        If numcells <> 5 Then  '欄位長度有改時，下面也要改哦
            checkdata = checkdata & "資料長度錯誤"
        Else
            If Len(strRec(0)) = 0 Or strRec(1) = "" Then
                If checkdata <> "" Then
                    checkdata += ""
                End If
                checkdata += "課程代號不可為空白"
            End If
            If checkdata = "" Then
                If CheckCourseID(strRec(0)) <> 0 Then
                    If checkdata <> "" Then
                        checkdata += ""
                    End If
                    checkdata += "資料重覆"
                Else
                    If Len(strRec(4)) <> 0 Or strRec(4) <> "" Then
                        strRec(4) = CheckClassKind(strRec(4))
                        If strRec(4) = "" Then
                            If checkdata <> "" Then
                                checkdata += ""
                            End If
                            checkdata += "課程類別I資料錯誤"
                        End If
                    End If
                    If Len(strRec(5)) <> 0 Or strRec(5) <> "" Then
                        strRec(5) = CheckClassKind(strRec(5))
                        If strRec(5) = "" Then
                            If checkdata <> "" Then
                                checkdata += ""
                            End If
                            checkdata += "課程類別II資料錯誤"
                        End If
                    End If
                End If
            End If
        End If
            TabRow = New TableRow()
            TabCell = New TableCell()
            If checkdata = "" Then
                TabCell.Text = "             Else
                TabCell.Text = "             End If
       
            TabRow.Cells.Add(TabCell)
       
            For i = 0 To numcells
                TabCell = New TableCell()
                If strRec(i) = "" Then
                    TabCell.Text = "　"
                Else
                    TabCell.Text = strRec(i)
                End If
                TabRow.Cells.Add(TabCell)
            Next i
        '欄位長度有改時，這裡也要改哦，不然秀出來的資料若少一欄，會怪怪的
        For i = numcells + 1 To 5              
            TabCell = New TableCell()
            TabCell.Text = "　"
            TabRow.Cells.Add(TabCell)
        Next i
       
            TabCell = New TableCell()
            If checkdata = "" Then
                TabCell.Text = "　"
            Else
                checkdata = "

" & checkdata & "

"
                TabCell.Text = checkdata
                ErrorFlag = "Y"
            End If
            TabRow.Cells.Add(TabCell)
            TbFileRec.Rows.Add(TabRow)
    End Sub

#####################################################################
##須先將資料存到主機的電腦上，才能讀取該檔資料
## 注意要讀CLIENT的資料，要先從CLIENT將資料存到SERVER，再使用STREAMREADER的指令，
##注意該存取的目錄要開ASP.NET 的權限

一樓的同事，心血來潮說要來訂旺記的湯包，
據說是他大嫂買回來吃，大家覺得不錯，想說要大家一起來團購，
位在基隆的旺記，只要訂購滿五包台北縣市就可以免運外送
立刻就招集了同好，要一起來買湯包~~~
上綱查了一下，才發現原來這間旺記是這麼的有名氣，
原本還以為是名不經傳的呢，沒想到上了奇ｘ一查，頁數多的數不出來．．．
為了方便訂購，所以一律只能訂購上海湯包，一包六十顆　１９０元，
一顆三元的湯包，還算便宜，打電話去問，原來買超過１７包，一包便只要１７０元
中午就送來的湯包用著大大的保麗龍箱包起來，為免公司的冷凍室不夠用，
所以在下班前半小時，才拆封，果然小湯包還保持著冷凍的狀態．．．．
打開湯包一看，一顆顆５０元硬幣大小的湯包，精緻可愛，
老板還貼心的送上兩張可重覆使用的蒸籠紙．．．
帶著湯包回家的我，想著要好好的在週未，享用我這美味的湯包．．．
將湯包放在蒸籠紙上，貪心的我不想分次蒸，就在一個蒸籠紙上放了１８個湯包
沒想到湯包竟然長大了，所以所有的湯包都貼在一起了，在蒸籠每個都白白胖胖的
好像包子一樣，等我一打開了蓋子，每個湯包就像是洩了氣的皮氣似的，
還好家裡有夾子，才能讓我順利的在擁擠的蒸籠紙上，拿出了所有的湯包．．．
先將湯包給咬了一小口，再吸出美味的湯汁，湯子甜甜的混著肉的鮮味，不錯
再將湯包沾上我特製的醬汁，真是美味，令人一口接一口．．．
不過看似雖小的湯包，吃了十顆後，也有飽足感．．算算才花了三十元
簡直比市面上賣的湯包，便宜太多了，果然是物超所值．．．
下次再訂時，還要再多訂些，讓眾親好友也有機會吃到這美味的湯包．．．
※基隆旺記小籠湯包※
電話：(02)2457-3377、0939-758-727
傳真：(02)2459-1657
地址：基市暖暖街570巷79號
上海湯包一包60粒，190元/17包以上160元
港式香菇、干貝絲瓜、翡翠湯包、雪裡紅，都是一包50粒190元

作法三：
條件：select有該欄位且在Gridview中有設定該欄位
1. 將該欄位在　   GVQuery_RowCreated　時再將其隱藏起來（如此gridview上也不會秀）
，注意是否該Gridview是否有表頭表尾，因為其cell的個數不同會造成在關閉時，index超出限制

作法二：
條件：select有該欄位但是在Gridview中並未設定該欄位
1. 先定義一個全域變數　
Dim strCategoryID As String
2. 於編輯或是刪除的按紐中設定　CommandArgument的值
                    Text="編輯"  CommandArgument='<%# Eval("CategoryID") %>'>

作法一：
條件：select有該欄位但是在Gridview中並未設定該欄位
1. 於編輯或是刪除的按紐中設定　CommandArgument的值，並且要說定on_click的事件
                  CommandName="Edit"  Text="編輯" on<!>click="modify_debit" 
            CommandArgument='<%# Eval("CategoryID") %>'>
     

1.先加入commandField的欄位後，再轉型為TemplateField
2.可將TemplateField改為 linkButton 或是 ImageButton
   

   
               CommandName="Edit"  ToolTip="編輯" ImageUrl="edit.gif"
         PostBackUrl="MSaleProduct.aspx?EditMode=UPD#Tab002" 　/>
   

作法一
  --每頁都是從1開始統計
 
        <%#GVQuery.Rows.Count + 1%>