歡迎~ 程式設計 學生 作業 專題製作 程式外包 家教...

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

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()

  密碼:<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>

    備註：<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()) == "") {

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

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

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

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

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

Web Control

變數

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

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

目前測試就二種方法

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

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

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

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

Web.sitemap 檔可能如下所示。

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

Dim dt As New DataTable()

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

dt = dt.DefaultView.ToTable()

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

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

將 ListBox 元件的屬性SelectionMode 改成 MultiSimple

或是在程式中修改

ListBox1.SelectionMode = SelectionMode.MultiSimple

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

以下語法加在Web.config裡

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

        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

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

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"