Dim workbook As New HSSFWorkbook()
Dim sheet As HSSFSheet
sheet = workbook.CreateSheet("報表")
'自訂邊界
sheet.SetMargin(NPOI.SS.UserModel.MarginType.TopMargin, 0.4) '0.4=1cm
sheet.SetMargin(NPOI.SS.UserModel.MarginType.RightMargin, 0)
sheet.SetMargin(NPOI.SS.UserModel.MarginType.BottomMargin, 0.4)
sheet.SetMargin(NPOI.SS.UserModel.MarginType.LeftMargin, 0)
sheet.HorizontallyCenter = True '水平置中
Roger 發表在 痞客邦 留言(0) 人氣(1,556)
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) 人氣(1,014)
密碼:<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) 人氣(133)
備註:<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()) == "") {
alert('必需輸入【備註】');
return false;
}
}
</script>
Roger 發表在 痞客邦 留言(0) 人氣(491)
<asp:TemplateField>
<ItemTemplate>
<asp:DropDownList ID="ddlItem" runat="server">
<asp:ListItem Value="1">項目1</asp:ListItem>
<asp:ListItem Value="2">項目2</asp:ListItem>
<asp:ListItem Value="3">項目3</asp:ListItem>
</asp:DropDownList>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:TextBox ID="txbName" runat="server"></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
Roger 發表在 痞客邦 留言(0) 人氣(71)
<asp:TemplateField HeaderText="姓名">
<ItemTemplate>
<asp:TextBox ID="txtName" runat="server" Text='<%# Eval("Name","{0}") %>'></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="身份證">
<ItemTemplate>
<asp:Label ID="lblID" runat="server" Text='<%# Eval("ID","{0}") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
Roger 發表在 痞客邦 留言(0) 人氣(134)
DataTable.Copy 建立的新 DataTable 與相同的資料。
DataTable.Clone 建立的新 DataTable 不包含任何資料,只有相同的資料結構。
Roger 發表在 痞客邦 留言(0) 人氣(655)
Roger 發表在 痞客邦 留言(0) 人氣(3,046)
[VB]
If Not IsNothing(DropDownList1.Items.FindByText(strText)) Then
DropDownList1.Items.FindByText(strTex)).Selected = True
End If
Roger 發表在 痞客邦 留言(0) 人氣(110)
TextBox 把屬性 ReadOnly 設成 True 是無法從 JavaScrpt 取到值的
目前測試就二種方法
Roger 發表在 痞客邦 留言(0) 人氣(74)