下面是DataGrid的代码:<asp:DataGrid id="dgResult" runat="server" BorderColor="#999999" BorderStyle="None"
BorderWidth="1px" BackColor="White" CellPadding="3" PageSize="20" AllowPaging="True" GridLines="Vertical" AutoGenerateColumns="False" Font-Size="Small" AllowSorting="True" AllowCustomPaging="True">
<FooterStyle ForeColor="Black" BackColor="#CCCCCC"></FooterStyle>
<SelectedItemStyle Font-Bold="True" ForeColor="White" BackColor="#008A8C"></SelectedItemStyle>
<ItemStyle ForeColor="Black" BackColor="#EEEEEE"></ItemStyle>
<HeaderStyle Font-Bold="True" ForeColor="White" BackColor="#000084"></HeaderStyle>
<Columns>
<asp:TemplateColumn HeaderText="选择">
<ItemTemplate>
<asp:CheckBox Runat="server" Enabled="True" ID="ck"></asp:CheckBox>
</ItemTemplate>
<ItemStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
Font-Underline="False" HorizontalAlign="Center" />
</asp:TemplateColumn>
<asp:BoundColumn DataField="JCBH" HeaderText="教材编号">
<ItemStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
Font-Underline="False" HorizontalAlign="Center" />
</asp:BoundColumn>
<asp:BoundColumn DataField="JCMC" HeaderText="教材名称">
<ItemStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
Font-Underline="False" HorizontalAlign="Center" />
</asp:BoundColumn>
<asp:BoundColumn DataField="CBS" HeaderText="出版社">
<ItemStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
Font-Underline="False" HorizontalAlign="Center" />
</asp:BoundColumn>
<asp:BoundColumn DataField="ZZ" HeaderText="作者">
<ItemStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
Font-Underline="False" HorizontalAlign="Center" />
</asp:BoundColumn>
<asp:BoundColumn DataField="DJ" HeaderText="单价">
<ItemStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
Font-Underline="False" HorizontalAlign="Center" />
</asp:BoundColumn>
<asp:BoundColumn DataField="CBSJ" HeaderText="出版时间">
<ItemStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
Font-Underline="False" HorizontalAlign="Center" />
</asp:BoundColumn>
<asp:BoundColumn DataField="BB" HeaderText="版本">
<ItemStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
Font-Underline="False" HorizontalAlign="Center" />
</asp:BoundColumn>
<asp:BoundColumn DataField="JCLX" HeaderText="教材类型">
<ItemStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
Font-Underline="False" HorizontalAlign="Center" />
</asp:BoundColumn>
<asp:BoundColumn DataField="SYDX" HeaderText="使用对象">
<ItemStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
Font-Underline="False" HorizontalAlign="Center" />
</asp:BoundColumn>
<asp:BoundColumn DataField="HJQK" HeaderText="获奖情况">
<ItemStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
Font-Underline="False" HorizontalAlign="Center" />
</asp:BoundColumn>
<asp:BoundColumn DataField="SFTJ" HeaderText="是否推荐">
<ItemStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
Font-Underline="False" HorizontalAlign="Center" />
</asp:BoundColumn>
</Columns>
<PagerStyle HorizontalAlign="Right" ForeColor="Black" Mode="NumericPages" BackColor="LightSteelBlue"></PagerStyle>
<AlternatingItemStyle BackColor="Gainsboro" />
</asp:DataGrid>后台:
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
dbs = "F:\教材科项目\JCGL2007\App_Data\jcjbxx.mdb"
con = New Data.OleDb.OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=" & dbs)
con.Open() sqls = "Select * From JCJBXX"
icom = New Data.OleDb.OleDbCommand(sqls, con)
dr = icom.ExecuteReader()
dgResult.DataSource = dr If Page.IsPostBack = False Then
dgResult.DataBind()
End If icom = Nothing
dr = Nothing sqls = "Select * From JCJBXX"
icom = New Data.OleDb.OleDbCommand(sqls, con)
dr = icom.ExecuteReader()
Dim i As Integer
i = 0
Try
While dr.Read
i = i + 1
End While
Catch ex As Exception End Try
intJLSL = i
lblNum.Text = "(" & Str(intJLSL) & "条)"
End Sub以前把DataGrid的DataSource属性设为一个AccessDataSource都可以自动分页,后来用DataBind就只能显示第一页了,怎么回事呢?是不是还要写点代码?还是DataGrid的属性没有设置正确?
BorderWidth="1px" BackColor="White" CellPadding="3" PageSize="20" AllowPaging="True" GridLines="Vertical" AutoGenerateColumns="False" Font-Size="Small" AllowSorting="True" AllowCustomPaging="True">
<FooterStyle ForeColor="Black" BackColor="#CCCCCC"></FooterStyle>
<SelectedItemStyle Font-Bold="True" ForeColor="White" BackColor="#008A8C"></SelectedItemStyle>
<ItemStyle ForeColor="Black" BackColor="#EEEEEE"></ItemStyle>
<HeaderStyle Font-Bold="True" ForeColor="White" BackColor="#000084"></HeaderStyle>
<Columns>
<asp:TemplateColumn HeaderText="选择">
<ItemTemplate>
<asp:CheckBox Runat="server" Enabled="True" ID="ck"></asp:CheckBox>
</ItemTemplate>
<ItemStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
Font-Underline="False" HorizontalAlign="Center" />
</asp:TemplateColumn>
<asp:BoundColumn DataField="JCBH" HeaderText="教材编号">
<ItemStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
Font-Underline="False" HorizontalAlign="Center" />
</asp:BoundColumn>
<asp:BoundColumn DataField="JCMC" HeaderText="教材名称">
<ItemStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
Font-Underline="False" HorizontalAlign="Center" />
</asp:BoundColumn>
<asp:BoundColumn DataField="CBS" HeaderText="出版社">
<ItemStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
Font-Underline="False" HorizontalAlign="Center" />
</asp:BoundColumn>
<asp:BoundColumn DataField="ZZ" HeaderText="作者">
<ItemStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
Font-Underline="False" HorizontalAlign="Center" />
</asp:BoundColumn>
<asp:BoundColumn DataField="DJ" HeaderText="单价">
<ItemStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
Font-Underline="False" HorizontalAlign="Center" />
</asp:BoundColumn>
<asp:BoundColumn DataField="CBSJ" HeaderText="出版时间">
<ItemStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
Font-Underline="False" HorizontalAlign="Center" />
</asp:BoundColumn>
<asp:BoundColumn DataField="BB" HeaderText="版本">
<ItemStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
Font-Underline="False" HorizontalAlign="Center" />
</asp:BoundColumn>
<asp:BoundColumn DataField="JCLX" HeaderText="教材类型">
<ItemStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
Font-Underline="False" HorizontalAlign="Center" />
</asp:BoundColumn>
<asp:BoundColumn DataField="SYDX" HeaderText="使用对象">
<ItemStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
Font-Underline="False" HorizontalAlign="Center" />
</asp:BoundColumn>
<asp:BoundColumn DataField="HJQK" HeaderText="获奖情况">
<ItemStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
Font-Underline="False" HorizontalAlign="Center" />
</asp:BoundColumn>
<asp:BoundColumn DataField="SFTJ" HeaderText="是否推荐">
<ItemStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
Font-Underline="False" HorizontalAlign="Center" />
</asp:BoundColumn>
</Columns>
<PagerStyle HorizontalAlign="Right" ForeColor="Black" Mode="NumericPages" BackColor="LightSteelBlue"></PagerStyle>
<AlternatingItemStyle BackColor="Gainsboro" />
</asp:DataGrid>后台:
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
dbs = "F:\教材科项目\JCGL2007\App_Data\jcjbxx.mdb"
con = New Data.OleDb.OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=" & dbs)
con.Open() sqls = "Select * From JCJBXX"
icom = New Data.OleDb.OleDbCommand(sqls, con)
dr = icom.ExecuteReader()
dgResult.DataSource = dr If Page.IsPostBack = False Then
dgResult.DataBind()
End If icom = Nothing
dr = Nothing sqls = "Select * From JCJBXX"
icom = New Data.OleDb.OleDbCommand(sqls, con)
dr = icom.ExecuteReader()
Dim i As Integer
i = 0
Try
While dr.Read
i = i + 1
End While
Catch ex As Exception End Try
intJLSL = i
lblNum.Text = "(" & Str(intJLSL) & "条)"
End Sub以前把DataGrid的DataSource属性设为一个AccessDataSource都可以自动分页,后来用DataBind就只能显示第一页了,怎么回事呢?是不是还要写点代码?还是DataGrid的属性没有设置正确?
解决方案 »
- 菜鸟求问验证控件问题
- Microsoft.Office.Interop.Excel;怎么释放资源?ASP.NET
- 如何在字符串中去除重复值?
- 求教高手ASP.NET程序的配置,见内
- 求教一个关于meta的问题
- vs2008的问题
- 请教前辈:在vb.net中该怎样设置才能在把DataGrid控件所选的数据和上方的文本框中的数据对应起来啊?谢谢!
- 我做的一个网站,在本地发布没有问题!!可传到服务器后报错!!
- AspNetMenu菜单在部分电脑上挡住下面的iframe框架,部分电脑没有挡住,是怎么回事呀!
- 在vs.net中能不能不用打代码就做好一个留言本?
- iframe模拟文本编辑器,如何设置和取消文本样式???谁有例子或源代码?
- ☆JMail发送邮件在本地可以,上传到win2003的服务器就上不行☆
里面的记录是不是<20