目前分類:Asp Net (54)

瀏覽方式: 標題列表 簡短摘要

Dim workbook As New HSSFWorkbook()
Dim sheet As HSSFSheet
sheet = workbook.CreateSheet("報表")
'自訂邊界
sheet.SetMargin(NPOI.SS.UserModel.MarginType.TopMargin, 0.4) '0.4=1cm

文章標籤

Roger 發表在 痞客邦 留言(0) 人氣()

Dim workbook As New HSSFWorkbook()
Dim sheet As HSSFSheet
sheet = workbook.CreateSheet("報表")
Dim footer As NPOI.SS.UserModel.Footer = sheet.Footer()
footer.Right = "Page " + HeaderFooter.Page() + " of " + HeaderFooter.NumPages()

文章標籤

Roger 發表在 痞客邦 留言(0) 人氣()

  密碼:<asp:TextBox ID="passwd" runat="server"></asp:TextBox>
        <asp:RegularExpressionValidator ID="passrg" runat="server" ErrorMessage="至少6碼英文或數字" 
          ControlToValidate="passwd"
          ValidationExpression="^.*(?=.{6,})(?=.*\d)(?=.*[a-zA-Z]).*$">
        </asp:RegularExpressionValidator>

文章標籤

Roger 發表在 痞客邦 留言(0) 人氣()

    備註:<asp:TextBox ID="txbRemk" runat="server"></asp:TextBox><br />
    <asp:Button ID="btnSave_Detail" OnClientClick="return check();" runat="server" Text="明細確認" />
    <script>
        function check(){
            if ($.trim($('#<%=txbRemk.ClientID %>').val()) == "") {

文章標籤

Roger 發表在 痞客邦 留言(0) 人氣()

            <asp:TemplateField>
                <ItemTemplate>
                    <asp:DropDownList ID="ddlItem" runat="server">
                        <asp:ListItem Value="1">項目1</asp:ListItem>
                        <asp:ListItem Value="2">項目2</asp:ListItem>

文章標籤

Roger 發表在 痞客邦 留言(0) 人氣()

            <asp:TemplateField HeaderText="姓名">
                <ItemTemplate>
                    <asp:TextBox ID="txtName" runat="server" Text='<%# Eval("Name","{0}") %>'></asp:TextBox>
                </ItemTemplate>
            </asp:TemplateField>

文章標籤

Roger 發表在 痞客邦 留言(0) 人氣()

DataTable.Copy  建立的新 DataTable 與相同的資料。

DataTable.Clone 建立的新 DataTable 不包含任何資料,只有相同的資料結構。


文章標籤

Roger 發表在 痞客邦 留言(0) 人氣()

在網路上常看到的命名規則做個整理...

 

Web Control

Button btn CheckBox chk
CheckBoxList chkl DataGrid dgrd, dg
DataList dlst DropDwonList ddl, drop
FileUpload fup HiddenField hid, hidden
HyperLink link, hlk Image img
ImageButton imgbtn, ibtn Label lbl
ListBox Lst Literal lit
Panel panel, pnl RadioButton rad
RadioButtonList radl TextBox txb, txt

 

Command  cmd, comm Connection conn, con
GridView gv Dataset ds, dst
Datarow dr, drow DataTable dt

變數

文章標籤

Roger 發表在 痞客邦 留言(0) 人氣()

[VB]
If Not IsNothing(DropDownList1.Items.FindByText(strText)) Then
    DropDownList1.Items.FindByText(strTex)).Selected = True
End If


文章標籤

Roger 發表在 痞客邦 留言(0) 人氣()

TextBox 把屬性 ReadOnly 設成 True 是無法從 JavaScrpt 取到值的

目前測試就二種方法

1. 由 Request 來取值。例如: Request["TextBox1"]

2. TextBox 把屬性 ReadOnly 設成 False。
 在程式 Page_Load 的地方寫入 TextBox1.Attributes.Add("ReadOnly", "ReadOnly")即可。

文章標籤

Roger 發表在 痞客邦 留言(0) 人氣()

做網站(Web Form)常會使用網頁節點,

.net 的網頁節點可以直客使用 Web.SiteMap 來做設定,

Web.sitemap 檔可能如下所示。

<?xml version="1.0" encoding="utf-8" ?>
<siteMap>

文章標籤

Roger 發表在 痞客邦 留言(0) 人氣()

Dim dt As New DataTable()

dt.DefaultView.Sort = "Number,ID" '將DataTable排序

dt = dt.DefaultView.ToTable()


文章標籤

Roger 發表在 痞客邦 留言(0) 人氣()

<asp:TemplateField HeaderText="日期">
    <ItemTemplate>
        <asp:TextBox ID="TxtDate" runat="server" Text='<%# fn_Rtn_DATE(Eval("Date")) %>'></asp:TextBox>
    </ItemTemplate>
</asp:TemplateField>

文章標籤

Roger 發表在 痞客邦 留言(0) 人氣()

        ''' <summary>
        ''' 判斷是否為整確的mail格式
        ''' </summary>
        ''' <param name="strMail">E-Mail</param>
        Public Shared Function IsEmail(ByVal strMail As String) As Boolean

文章標籤

Roger 發表在 痞客邦 留言(0) 人氣()

將 ListBox 元件的屬性SelectionMode 改成 MultiSimple

或是在程式中修改

ListBox1.SelectionMode = SelectionMode.MultiSimple


Roger 發表在 痞客邦 留言(0) 人氣()

        ''' <summary>
        ''' 去除HTML標記
        ''' </summary>
        ''' <param name="Htmlstring">包括HTML的源碼 </param>
        ''' <returns>已經去除後的文字</returns>

Roger 發表在 痞客邦 留言(0) 人氣()

以下語法加在Web.config裡

<configuration>
   <system.web>
      <compilation debug="false">
         <codeSubDirectories>

Roger 發表在 痞客邦 留言(0) 人氣()

        Dim strSql As String = "SELECT * FROM TableName"
        Dim filename As String = Server.MapPath("GetExcel.xls")
        Dim constring As String = System.Web.Configuration.WebConfigurationManager.ConnectionStrings("DatabaseOleDBConnectionString").ToString
        Dim connect As New Data.OleDb.OleDbConnection(constring)

        Try

Roger 發表在 痞客邦 留言(0) 人氣()

在網頁上新增元件
For i = 1 To 4
    Dim txtCount As New TextBox
    txtCount.ID = "txtCount" & i
    Page.Controls.Add(txtCount)

Roger 發表在 痞客邦 留言(0) 人氣()

Imports Microsoft.Office.Interop
Imports System.Data.OleDb

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim strPath As String = "C:\Documents and Settings\Administrator\桌面\訂單.xls"

Roger 發表在 痞客邦 留言(0) 人氣()

1 23