Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Estou tentando criar um geito de usar menu arvore com exibição de dados de duas tabelas onde com o id de uma posso selecionar os dados da segundo criei algo desse geito:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><html><head><title>TESTE</title><script language="javascript"><!--function mostra(item){if (item.style.display=='none'){item.style.display='';}else{item.style.display='none'}}--></script></head><body><%SET CONEXAO = SERVER.CREATEOBJECT("ADODB.CONNECTION")CONEXAO.OPEN ("DBQ=" & Server.MapPath("teste.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}")x = 1%><table width="600" border="0" cellpadding="0" cellspacing="0"> <% SET TESTE = SERVER.CREATEOBJECT("ADODB.RECORDSET") TESTE.OPEN "SELECT id, item1, item2, item3 FROM tab1 WHERE id_tab1 = TESTE.FIELDS("id").VALUE", CONEXAO, 3, 3 WHILE NOT TESTE.EOF %> <tr> <td width="9" height="19" valign="middle"><span id="menu<%=x%>" onMouseUp="mostra(menu1principal<%=x%>)"><img src="max.jpg" width="9" height="9" id="menu1img" valign="bottom"></span></td> <td width="3" valign="top"><img src="" width="3" height="3" border="0"></td> <td valign="middle" align="center"><% IF REQUEST.QUERYSTRING("editar") = CSTR(TESTE.FIELDS("id").VALUE) THEN %><a href="<%=REQUEST.SERVERVARIABLES("SCRIPT_NAME")%>"><img src="botao_salvar.gif" width="14" height="14" border="0" alt="Salvar"></a><img src="" width="3" height="3"><a href="<%=REQUEST.SERVERVARIABLES("SCRIPT_NAME")%>"><img src="botao_adicionar.gif" width="16" height="16" border="0" alt="Cancelar"></a><% ELSE %><a href="<%=REQUEST.SERVERVARIABLES("SCRIPT_NAME")%>?editar=<%=TESTE.FIELDS("id").VALUE%>"><img src="botao_editar.gif" width="16" height="16" border="0" alt="Editar"></a><% END IF %></td> <td width="3" valign="top"><img src="" width="3" height="3" border="0"></td> <td valign="top"><% IF REQUEST.QUERYSTRING("editar") = CSTR(TESTE.FIELDS("id").VALUE) THEN %><input type="text" name="item1" value="<%=TESTE.FIELDS("item1").VALUE%>"><% ELSE RESPONSE.WRITE(TESTE.FIELDS("item1").VALUE) END IF %></td> <td width="3" valign="top"><img src="" width="3" height="3"></td> <td valign="top"><% IF REQUEST.QUERYSTRING("editar") = CSTR(TESTE.FIELDS("id").VALUE) THEN %><input type="text" name="item2" value="<%=TESTE.FIELDS("item2").VALUE%>"><% ELSE RESPONSE.WRITE(TESTE.FIELDS("item2").VALUE) END IF %></td> <td width="3" valign="top"><img src="" width="3" height="3"></td> <td valign="top"><% IF REQUEST.QUERYSTRING("editar") = CSTR(TESTE.FIELDS("id").VALUE) THEN %><input type="text" name="item3" value="<%=TESTE.FIELDS("item3").VALUE%>"><% ELSE RESPONSE.WRITE(TESTE.FIELDS("item3").VALUE) END IF %></td> </tr> <tr id="menu1principal<%=x%>" style="display:'none'"> <td><img src="" width="3" height="3" border="0"></td> <td><img src="" width="3" height="3" border="0"></td> <td><img src="" width="3" height="3" border="0"></td> <td><img src="" width="3" height="3" border="0"></td> <td width="100%" colspan="5"><table width="100%" border="0" cellpadding="0" cellspacing="0"> <% SET TESTE_SUB = SERVER.CREATEOBJECT("ADODB.RECORDSET") TESTE_SUB.OPEN "SELECT sub_tab1,sub_tab2,sub_tab3 FROM tab2", CONEXAO, 3, 3 WHILE NOT TESTE_SUB.EOF %> <tr> <td valign="top"><%=TESTE_SUB.FIELDS("sub_tab1").VALUE%></td> <td width="3"><img src="" width="3" height="3" border="0"></td> <td><%=TESTE_SUB.FIELDS("sub_tab2").VALUE%></td> <td width="3"><img src="" width="3" height="3" border="0"></td> <td><%=TESTE_SUB.FIELDS("sub_tab3").VALUE%></td> </tr> <% TESTE_SUB.MOVENEXT WEND%> </table></td> </tr> <tr> <td height="3" colspan="7" valign="top"><img src="" width="3" height="3" border="0"></td> </tr> <% x = x + 1 TESTE.MOVENEXT WEND %></table></body></html><%TESTE.CLOSECONEXAO.CLOSESET TESTE = NOTHINGSET CONEXAO = NOTHING%>bom, não funga a segunda seleção mas acho que vocês perceberão mais ou menos o que estou querendo fazer, a unica diferença é que não precisarei carregar a página para exibir os dados filhos pois na primeira vez que eu carregar a página ele também carregará os dados da segunda tabela junto.Carregando comentários...