数据如何按照下面格式显示呢(50分)

  • 主题发起人 主题发起人 yyacc
  • 开始时间 开始时间
Y

yyacc

Unregistered / Unconfirmed
GUEST, unregistred user!
要实现的格式:
名称 件数1 件数2 | 名称 件数1 件数2
|
|
|
|
|
|
|
|
<tr>
<td height="136" align="center" valign="top" background="images/qz-02.gif">

<table width="766" border="0" cellspacing="0">
<tr>
<td height="132" align="center" valign="top"><table width="253" border="0" cellspacing="1">
<tr>
<td align="center" bgcolor="#D0EAE7" class="m">名称</td>
<td align="center" bgcolor="#D0EAE7" class="m">件数1</td>
<td align="center" bgcolor="#D0EAE7" class="m">件数2</td>
</tr>
<%ResultSet rs3=null;
int tm3=8;
String accept=null;
String finish=null;
String bmmc=null;
int bmcount=query.getCountbmNum();
记录总数
rs3=query.getORGCOUNTINFO();
while(rs3!=null&amp;&amp;rs3.next()&amp;&amp;tm3>0){tm3--;
一个表格显示8行,3列。
bmmc=rs3.getString("F_DISPLAYNAME");
accept=rs3.getString("numf");

finish=rs3.getString("nume");
%>

<tr>
<td align="center" bgcolor="#D0EAE7" class="m"><%=bmmc%></td>
<td align="center" bgcolor="#D0EAE7" class="m"><%=accept%></td>
<td align="center" bgcolor="#D0EAE7" class="m"><%=finish%></td>
</tr>

<%}
rs3.close();
%>
</table></td> 一共有16条数据,到这里为止右边表格显示了8条,下面的8条如何显示到左边的表格中呢。
<td align="center" valign="top"><table width="253" border="0" cellspacing="1">
<tr>
<td align="center" bgcolor="#D0EAE7" class="m">名称</td>
<td align="center" bgcolor="#D0EAE7" class="m">件数1</td>
<td align="center" bgcolor="#D0EAE7" class="m">件数2</td>
</tr>
//应该是显示在这里的。
</table></td>




</tr>
</table></td>
</tr>

请问怎么能实现这种显示结果呢。谢谢。
 
可以使用STRINGGIRD来实现的, 使用循环完成!
 
STRINGGIRD???这个也行,这不是DELPHI里常用的吗?这里面怎么用啊。
 
大家有会的吗?我今天刚研究这个东西。困扰了我半天了。
 
下班了,如果大家有会的请给我留言.希望明天能有答案.谢谢.
 
// 用StringGrid大概可以像下面那样使用。
var
Form1: TForm1;
s1:Array[1..6] of String = ('名称','件数1','件数2','名称','件数1','件数2');
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i,j:Integer;
begin
StringGrid1.ColCount := 7;
StringGrid1.RowCount := 9;
for i := 1 to 6do
StringGrid1.Cols.Add(s1);
for i := 1 to 8do
StringGrid1.Rows.Add(IntToStr(i));
for i := 1 to 6do
for j := 1 to 8do
StringGrid1.Cells[i,j] := s1;
end;
 

Similar threads

I
回复
0
查看
745
import
I
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
770
import
I
后退
顶部