發表文章

抓OpenData 的Json問題

本來是去抓OpenData的資料定期更新 結果最近突然GG 查了半天找不到方法 最後主管告知通過添加UserAgent可以解決 666 紀錄一下程式碼  webRequest.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/74.0.3729.169 Safari/537.36";

GridView ButtonField 確認提醒

Dim btnDelete As Button = CType((e.Row.Cells(2).Controls(0)), Button) btnDelete.OnClientClick = "if(!confirm('你確定要刪除這個帳號嗎!?')) return false;"

CheckBox GridView 動態產生

Protected Sub gv_account_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles gv_account.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then Dim ck = New CheckBox ck.ID = "Scheck" e.Row.Cells(1).Controls.Add(ck) End If End Sub 抓值方式 Sub PermissionCheck() Dim gvr As GridViewRow Dim KeyName As String For Each gvr In gv_account.Rows Dim cb As CheckBox = CType(gvr.FindControl("Scheck"), CheckBox) If cb.Checked = True Then KeyName = gv_account.DataKeys(gvr.RowIndex).Values(0) End If Next End Sub

JavaScript val() 回傳值

剛才遇到一個很有趣的狀況 let aa = $('input[name="base"]:checked').val();  根據Jquery官方 Val() 應該可以回傳 String,Number,Array 居然是優先傳回String 所以丟進數字參數就會直接Error 記得要先 ParseInt (aa)

VB 檢查數字

今天Sorcer要在一個字串裡面檢查數字 查到一個簡單好用的函數,做個紀錄 If IsNumeric(CoValue) = "True" Then CoValue = Double.Parse(CoValue) End If 這樣是不是很簡單呢

NPOI Excel .Net 有巨集問題

圖片
如圖,請不要這樣匯入資料庫 要請使用者打開巨集再儲存 因為會遇到轉型諸如此類的問題 !

從字元字串轉換成日期及/或時間時,轉換失敗 VB

由於出現上午下午不能進去資料庫 所以要指定字串格式 做個示範 Dim sdate As String = "2017 / 10 / 1 上午 12:00:00" 如果把sdate insert 進去Sql會失敗 Dim date_test As Date  '再宣告一個日期來存他 date_test = sdate date_test.ToString(" yyyy/MM/dd HH:mm:ss ") 這樣 date_test insert 就OK了