|
|||||||||||||||||
| 用ASP.NET在同一网页中显示主从关系表的相关数据 |
|
|
摘要： DataSet是数据集在内存中的表示方法，数据集可以有主从关系的数据表，在ACCESS中这种关系表现的很直观，本文讨论在同一网页上直观地显示有主从关系的相应数据的程序设计和程序。 -------------------------------------------------------------------------------- 目录 方法 Tables和ImageButtons的ID的命名规则 网页上Table的字段长度的估计 主要程序 事件过程 应用实例 -------------------------------------------------------------------------------- 方法 ： 对DataSet中的每一张表，如果有子表，将这张表的字段名行和每一纪录行在网页上都显示为只有一行的Table，并在记录行Table的第一列置上一个ImageButton，以便程序控制展开或关闭相应的子表的纪录行所形成的Table或Tables。对于每一纪录行，子表有相应的记录行，若子表还有子表，则对子表重复上述过程，即将子表的字段名行与相应的记录行在网页上都显示为只有一行的Table，并在记录行Table的第二列置上一个ImageButton，反之将子表的字段名行与相应的纪录行在网页上显示为一个Table。利用Table的Visible属性，可以控制子表相应记录行的显示。显然可以使用递归调用实现这一过程。 -------------------------------------------------------------------------------- Tables和ImageButtons的ID的命名规则： 用对ImageButton的点击，程序控制网页上的相应的Tables的显示与隐藏，这些ImageButton.id和Table.id的命名就需要一定的规则。 对DataSet中的第一张主表： 由字段行生成的网页Table的id命名为t0 由记录行生成的网页Tables的id分别为t1,t2,...tn ，与这些Tables相对应的ImageButton.id命名为 e1,e2,...en, 这里 n：主表的记录行数 对DataSet中的子表： 子表中的记录行都是隶属于主表中的某一记录行，因此这些记录行生成的网页Tables也隶属于主表某一记录行所生成网页的Table，如隶属于t2的Tables命名为t2-0,t2-1,t2-3...,其中t2-0为子表的字段名行在网页上生成的Table.id名，其余以此类推，若子表没有子表了，即最后一个子表，则t2-0是包含子表的字段名行和相应的子表记录行在网页上生成的Table.id名。 与这些table.id相对应的ImageButton.id分别命名为e2-1,e2-2,...。 -------------------------------------------------------------------------------- 网页上Table的字段长度的估计： DataSet中的每一张表都会在网页上生成一些Table，这些Tables的外在形式应该是相同的。即Tables的相同的Cell应有同样的长度。函数子程序SetCellSize计算DataTable的每一字段平均字符数，和字段名的字符数，并取其大者，若字段的某一纪录或字段名都是ASCII字符，则其字符数减半。用此数据便可估计网页上的Table的相应字段的显示长度。 下面是SetCellSize的程序，容易理解。 Function SetCellSize(myTable as DataTable) dim myRow as DataRow dim i,j,k,m as integer dim aa() as integer dim myBool as Boolean m=myTable.columns.count-1 redim aa(m) for i=0 to m aa(i)=0 next for each myRow in myTable.rows '计算每一字段的平均字符长度 for i=0 to myTable.columns.count-1 dim mystr as string mystr=myRow(myTable.columns(i)).tostring j=len(mystr) if j>0 then myBool=true for k=1 to j '判断dataTable中的每一项是否包括汉字 dim str1 as char=mid(mystr,k,1) if ascw(str1)>255 then '有非ASCII字符 myBool=false exit for end if next if myBool then j=(j/2+0.5) '都是ASCII字符，字符串长度减半 aa(i)+=j end if next next myRow k=myTable.rows.count for i=0 to m aa(i)=aa(i)/k 'DataTable的每一列的平均长度 next for i=0 to myTable.columns.count-1 '对每一字段名 dim str2 as string=myTable.columns(i).columnname j=len(str2) if j>0 then myBool=true for k=1 to j '判断字段名中是否包括汉字 dim str1 as char=mid(str2,k,1) if ascw(str1)>255 then '有非ASCII字符 myBool=false exit for end if next if myBool then j=(j/2+0.5) 'ASCII字符，字符串长度减半 if j>aa(i) then aa(i)=j end if next SetCellSize=aa end Function -------------------------------------------------------------------------------- 主要程序： 子程序ShowTables设置一些初始值，然后调用子程序ShowChildRows。 子程序ShowChildRows的参数说明： Rows：是一个DataRow数组，第一次调用ShowChildRows时，是DataTable的所有的记录行。以后递归调用ShowChildRows时，是与父表某一记录行相关的子表的一些记录行。 myTable：Rows所属的DataTable，程序将使用它的Columns，即字段名行。 |
|
| 上一篇:ASP.NET 如何操作文件 下一篇:《ASP.NET网站建设专家》前言 |
| 大部分文章摘自网上，如有侵犯您的权益请与我们联系，我们会第一时间进行处理，谢谢! | [ 打印文章 ] [ 关闭窗口 ] |