kuroi

então nelma, as datas vao repetir sim. imagina q você tenha a receita x e y na mesma data. vao aparecer as duas no select sim. ai você tem q ver a logica na hora de exibir. acho q se você mandar ordenar (Order By) por receita e data vai ficar melhor. mas tipo, não entendi direito como você quer. você quer uma linha de cabecalho com todos os meses, e embaixo a soma pra cada mes de cada receita?? se for acho melhor você fazer primeiro um select de todos os meses pra montar o cabecalho. e depois selecionar as receitas e ir preenchendo a tabela.

acho q faltou agrupar tb pela receita não?? tipo assim: $qry = mysql_query("SELECT SUM(valor_credito),r.receita,c.data FROM credito c,receita r WHERE r.cod_receita=c.cod_receita AND c.data BETWEEN '$dt_inicio' AND '$dt_fim' GROUP BY r.receita, c.data");

se você tem esses dois inputs: <input type="text" id="campo1" /> <input type="text" id="campo2" />[/code] a funcao seria essa: [code]function valida() { if (document.getElementById("campo1").value != document.getElementById("campo2").value) { window.alert ("O campo1 deve ser igual ao campo2."); return false; } return true; } ai se você quiser validar num submit de formulario, é só fazer o botao assim: <input type="submit" value="enviar" onclick="java script: valida();" /> note q no codigo acima, javascript tem que ser tudo junto. não testei o codigo aqui e meu javascript ta enferrujado mas deve ser mais o menos isso.

a o problema não são os varios ifs. o problema é q o primeiro if ta errado. você não tem uma expressao nele. olha: If txtvalor.Text Or txtdata.Text = "" Then o q faz o txtvalor.Text no meio no If?? o operador Or tem q estar entre expressoes booleanas. exemplo, If txtvalor.Text = "" Or txtdata.Text = "" Then

o q você quer dizer com informacoes erradas?? bom, primeira coisa, abra o seu relatorio no Crystal, clique no menu File e veja se não esta marcada a opcao Save Data With Report. se estiver, desmarque. se a dica acima não resolver, poste o codigo Visual Basic q você usa pra chamar o relatorio, e passe mais detalhes sobre o problema.

cara, acho q isso é mais problema com a sua linguagem (Visual Basic?? VB.NET?? Asp??) do q com o SQL. mas na hora de gravar tente dar um Trim() nos campos (o Trim tira os espacos em branco dos lados). tipo, em vez de txt_servico.Text, grave Trim(txt_servico.Text). se não resolver, use o Trim() então na hora de mostrar. quanto ao float, ele vai mostrar 0 de qualquer jeito. pois em campos float ficam armazenados apenas valores (numericos), não tem como ficar em branco, pois um valor vazio é representado por 0. portanto, se você deixar vazio ficara gravado 0, a não ser q você grave NULL. ou seja se você não quer q apareca o 0, tem duas opcoes: grave NULL quando estiver em branco, ou, na hora de mostrar faca um If e teste, se for 0, não mostre.

estranho giane, você verificou o q eu falei no post acima?? essa mensagem de erro normalmente significa uma sub q esta sendo usada como objeto.

ue, é só por os Ifs dentro do outro If normalmente. o seu codigo acima deve funcionar direitinho se você puser um embaixo do outro. só note q faltaria fechar o if principal.

como assim Visual Basic do Excel?? você quer dizer VBA?? pelo numero não tenho como saber qual erro q é, passe a descricao.

passei mais ou menos uma ideia de como fazer isso aqui: no clique do botao, de um AddItem (primeiro codigo do meu post acima), va pra ultima linha (segundo codigo do meu post acima) e preencha as colunas com o codigo q você já conhece. qualquer duvida, poste.

no banco é gravado espaco em branco ou a string "&nbsp;"?? poste o codigo de insert q você ta usando pra gente saber do q se trata.

é Deivid, acho q não da mesmo. se você criar o campo como String, ele só aceita ate 256 caracteres. e ele não deixa você criar campos do tipo Memo. pelo menos não na versao 8.5, não tenho certeza quanto as mais recentes. o Crystal tem mesmo varias limitacoes a respeito dos campos memorando. por exemplo, você não pode usar campos Memo em formulas, e tb as formulas não podem passar de 256 caracteres (ou seja, não da pra resolver o seu problema nem com campo Formula). o q você pode fazer é alguma gambiarra do tipo criar uma tabela com um unico campo Memo, e inclui-la no report. ai você grava a assinatura nela. sei la, veja ai, se você conseguir resolver de modo diferente, tb avisa ai pra eu saber como foi.

ElseIf tem q ser tudo junto.

acho q você tem q por os LIKEs (os q tão separados por OR) entre parenteses, não?? tipo assim: Set conta = conn.execute("select count(id) As total from produtos where nivel = " & categoria("nivel") & " and (titulo like '%" & SaryWord(0) & "%' " & sqy & ")")

no Crystal, você pode apontar pra todos os registros, mas fazer um agrupamento. tipo, crie um grupo e um campo sumario, clicando num botao q tem um SIGMA desenhado (esse: ). ai selecione um Minimum do campo valorunitario e agrupe pelo produto. ai você pode precisar fazer mais de um grupo, dependendo de como você quer.

faca: txtvalor.Text = Val(txtvalor.Text) + Val(lblvalor.Caption)

gianne acho q o erro então é porque você tem uma outra sub com o mesmo nome de algum dos objetos envolvidos no codigo. por exemplo, se você já tem uma sub chamada tb, o visual basic não vai saber se você esta se referindo à sub ou ao objeto, por isso o erro. verifique ai.

não da mesmo pra fazer soma de soma. mas pra resolver você pode fazer um outro campo formula q faca exatamente a soma q você quer ou usar um subreport e por no footer.

é, ta estranho isso. o erro é no execute ou no abrecn?? o q é abrecn?? é uma sub?? qual o codigo dela?? qual o codigo de quando você abre a conexao?? e só uma dica, não tem a ver com esse erro, mas esse codigo aqui: If tb.BOF And tb.EOF Then acho q o certo seria Or em vez de And não?? porque ele nunca vai estar no comeco e no final do arquivo ao mesmo tempo.

acho q seria entradas menos saidas não?? mas você tem tipo um campo com codigo do produto nas entradas e saidas pra poder saber de qual produto se trata não?? então faca com Join: Select produto.codigo, produto.descricao, (Sum(saidas.quantidade) + Sum(entradas.quantidade)) As quantidade From (produto INNER JOIN saidas ON produto.codigo = saidas.codigo) INNER JOIN entradas ON produto.codigo = entradas.codigo Group By produto.codigo, produto.descricao

e qual a mensagem do erro?? e poste o codigo novo todo pra gente saber como esta.

existe list sim, veja aqui: tem certeza q você ta usando o Visual Basic 6?? qual a mensagem do erro?? a unica coisa q imagino é q você esteja usando alguma versao do Visual Basic .NET e não Visual Basic 6, confere ai.

q bd você usa?? tenta gravar essa query como consulta (view) no banco de dados, só q sem Where. ai você faz o Where pelo Visual Basic. tipo assim: Select * From Consulta1 Where ConP_Venc BETWEEN ? AND ? mas lembre-se de por alias nos campos pros campos dos dois selects ficarem com o mesmo nome.

pelo numero não da pra saber, poste sempre a descricao do erro e sempre aponte qual a linha q da beleza?? olhando assim, acho q o erro é aqui: FrmCmp.MSFlexGrid.Rows = FrmCmp.MSFlexGrid.Row - 1 acho q era isso q você queria?? FrmCmp.MSFlexGrid.Row = FrmCmp.MSFlexGrid.Rows - 1

apostila não conheco, mas tem esse tutorial de join q escrevi aqui http://scriptbrasil.com.br/forum/index.php?showtopic=108732