Soyez le premier à donner votre avis sur cette source.
Snippet vu 33 201 fois - Téléchargée 32 fois
Dim i Dim iCnt As Integer Dim tamponxls As String tamponxls = vbNullString iCnt = Me.BindingContext(DsAuthors1, tablename).Count For i = 0 To iCnt If i = iCnt Then Exit For tamponxls = tamponxls & (Me.DataGrid1.Item(i, 1)) & vbTab tamponxls = tamponxls & (Me.DataGrid1.Item(i, 2)) & vbTab tamponxls = tamponxls & (Me.DataGrid1.Item(i, 3)) & vbTab tamponxls = tamponxls & (Me.DataGrid1.Item(i, 4)) & vbTab tamponxls = tamponxls & (Me.DataGrid1.Item(i, 5)) & vbTab tamponxls = tamponxls & (Me.DataGrid1.Item(i, 6)) & vbTab tamponxls = tamponxls & (Me.DataGrid1.Item(i, 7)) & vbTab tamponxls = tamponxls & (Me.DataGrid1.Item(i, 8)) & vbTab & vbCr Next i RichTextBox1.Text = tamponxls ' Displays a SaveFileDialog so the user can save the Image ' assigned to Button2. Dim saveFileDialog1 As New SaveFileDialog saveFileDialog1.Filter = "Excel|*.xls|Texte|*.txt|Richtext|*.rtf" saveFileDialog1.Title = "Sauver le fichier exporter sous ?" 'saveFileDialog1.ShowDialog() If saveFileDialog1.ShowDialog() = DialogResult.OK Then RichTextBox1.SaveFile(saveFileDialog1.FileName, _ RichTextBoxStreamType.PlainText) End If
Je comprend tout ce que tu fais mais je n'arrive pas à utiliser :
Dim DsAuthors1 As DataSet
Dim tablename
tamponxls = vbNullString
iCnt = Me.BindingContext(DsAuthors1, tablename).Count
tablename doit etre declaré en quoi ?
Et moi je dispose de 5 colonne mais de 15 lignes alors des que je veux intervertir les i avec les Integer ça me donne des erreurs :/
Merci
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.