cookie寫入 /讀取

//===== Hide/show sidebar /判斷 =====//
    var sidebarValue = $.cookie('sidebarValue');
    if (sidebarValue == 'hide') {
        //$('.fullview').click();
        $('body').toggleClass("clean");
        $('#sidebar').toggleClass("hide-sidebar mobile-sidebar");
        $('#content').toggleClass("full-content");
    }


    $('.fullview').click(function () {
        $("body").toggleClass("clean");
        $('#sidebar').toggleClass("hide-sidebar mobile-sidebar");
        $('#content').toggleClass("full-content");

        if (sidebarValue == "" || sidebarValue == null) {
            $.cookie('sidebarValue', 'hide', { expires: 1 });
        }
        else if (sidebarValue == "show") {
            $.cookie('sidebarValue', 'hide', { expires: 1 });
        }
        else if (sidebarValue == "hide") {
            $.cookie('sidebarValue', 'show', { expires: 1 });
        }
        else {
            $.cookie('sidebarValue', 'show', { expires: 1 });
        }
    });

DataTable

寫入DataTable
Dim dt As New DataTable()
dt.Columns.Add("date")
dt.Columns.Add("num")

Dim row As DataRow = dt.NewRow()
row("date") = "2018/12/12"
row("num") = "1200"
dt.Rows.Add(row)

----或----
Dim dt As New DataTable()
dt.Columns.Add("date")
dt.Columns.Add("num")

dt.Rows.Add("2018/12/12","1200")

字串寫入陣列
Dim array_p As New ArrayList
For i As Integer = 0 To distTable.Rows.Count - 1
        array_p.Add(distTable(i)("WO_NUMBER"))
Next

取DataTable裡某欄位不重覆資料
Dim dv As DataView = Lv_dt_D.DefaultView
Dim distTable As DataTable = dv.ToTable(True, "WO_NUMBER")
或

Dim Lv_dtGroup As DataTable = DTABLE.DefaultView.ToTable(True, "MCT_CUR_WO")

取DataTable的篩選條件
Dim find_rows As DataRow() = Lv_dt_D_b.Select("WO_NUMBER='" & array_p(j) & "'")

取DataTable某欄位的最大值
Dim v_max_seq As Integer = v_dt1.Compute("Max(SEQ)", "")

取DataTable進行條件加總

DTABLE.Compute("Sum(MCT_CUR_QTY)", "MCT_CUR_WO='" & Lv_dtGroup(i)("MCT_CUR_WO") & "'")

將欄位值轉數字型態
 Dim v_dt1 As New DataTable
v_dt1.Columns.Add("SEQ")

v_dt1.Columns("SEQ").DataType = System.Type.GetType("System.Int32")

DataTable排序
dt.DefaultView.Sort = "AG DESC"

dt= dt.DefaultView.ToTable()


DataTable 欄位名稱變更
dt.Columns("DOCNO").ColumnName = "合約編號"

NameValueCollection 集合 [字典]
字串字典，只能使用字串，如果你操作的對象是字串，那這個類別絕對是你的首選，因為它可以省下轉型的動作。 
NameValueCollection 特性如下： 
1.一個索引鍵(Key)對應到多個內容(Value)，不同於StringCollection。 
2.用GetValues方法取得的值是陣列型態，所以在處理上要小心。

Dim nvc As NameValueCollection = New NameValueCollection()
        nvc.Add("MES3002PJ_F1_A5_MAIN", "Form1")
        nvc.Add("MES3002PJ_F2_B5_MAIN", "Form2")
        nvc.Add("MES3002PJ_F3_A5_MAIN", "Form3")
        nvc.Add("MES3002PJ_F4_B5_MAIN", "Form4")

        Dim formName As String = Nothing
        For i As Integer = 0 To nvc.Count - 1
            If nvc.Keys(i) = name Then
                formName = nvc(i)
            End If

        Next

鼠标移上某行顯示浮动DIV提示信息

CSS
.show
        {
            z-index:9999;
            position:fixed;

        }

body
<p onmouseover="mover(this,'.....')">Text</p>

<div id='kk'>
    ......
</div>

javascript
function mover(event, val) {
            var div = document.getElementById("kk");
            var event = window.event || event;
            div.style.left = 10 + event.clientX + "px";//"px"必须
            div.style.top = 10 + event.clientY + "px";//"px"必须
            div.innerHTML = val;
            div.className = "show";
        }
        function out() {
            document.getElementById("kk").className = "none";
}

數字欄位小數點超過兩位，則取到小數第二位，若不足小數兩位，則顯示原數字。

數字欄位小數點超過兩位，則取到小數第二位，若不足小數兩位，則顯示原數字。
select name,
                                      case when substr(to_char(floor(attribute1*100)/100),1,1) = '.'  
                                                then '0'||to_char(floor(attribute1*100)/100) 
                                           when substr(to_char(floor(attribute1*100)/100),1,2) = '-.' 
                                                then replace(to_char(floor(attribute1*100)/100),'-.','-0.')
                                           else to_char(floor(attribute1*100)/100) end attribute1,
                                      case when substr(to_char(floor(attribute2*100)/100),1,1) = '.' 
                                                then '0'||to_char(floor(attribute2*100)/100)
                                           when substr(to_char(floor(attribute2*100)/100),1,2) = '-.'
                                                then replace(to_char(floor(attribute2*100)/100),'-.','-0.')
                                           else to_char(floor(attribute2*100)/100) end attribute2,
                                      case when substr(to_char(floor(attribute3*100)/100),1,1) = '.' 
                                                then '0'||to_char(floor(attribute3*100)/100)
                                           when substr(to_char(floor(attribute3*100)/100),1,2) = '-.'
                                                then replace(to_char(floor(attribute3*100)/100),'-.','-0.')
                                           else to_char(floor(attribute3*100)/100) end attribute3,
                                      case when substr(to_char(floor(attribute4*100)/100),1,1) = '.' 
                                                then '0'||to_char(floor(attribute4*100)/100)
                                           when substr(to_char(floor(attribute4*100)/100),1,2) = '-.'
                                                then replace(to_char(floor(attribute4*100)/100),'-.','-0.')
                                           else to_char(floor(attribute4*100)/100) end attribute4,
                                      attribute6,to_char(date1,'yyyy/MM/dd') date1,to_char(date2,'yyyy/MM/dd') date2
                                 from szs_web_item_content
                                where code='SZSWEB_DIVIDEND_INFORMATION'
                                  and org_id=:org_id and sys_id=:sys_id
                                order by to_number(name) desc

ASP.NET 中 C# VB 於同一專案 App_Code 目錄內並存

ASP.NET 中 C# VB 於同一專案 App_Code 目錄內並存
兩者在一般的並存上其實不會有問題

但如果在 App_Code 內要同時存在時就會噴錯給你看


解決方法是在Web.Config 內加入如下

<compilation debug="true" strict="false" explicit="true" targetFramework="4.0">
  <codeSubDirectories>
    <add directoryName="CSApp_Code"/>
  </codeSubDirectories>
</compilation>

把原本的 VB 依舊放在 App_Code 下 C# 則放在 App_Code/CSApp_Code 下面

或者是可以另外 <add directoryName="VBApp_Code"/>

然後把 VB 也收好放在 App_Code/VBApp_Code 下


from:http://jumping-fun.blogspot.tw/2013/06/aspnet-c-vb-appcode.html