vb 2008 දන්න අයගෙන් උදව්වක්

[xfacebookx]

vb 2008 දන්න අයගෙන් උදව්වක්

මචන්ලා මම ඩේටාග්‍රිඩ් වීව් එකක සිලෙක්ට් කරපු රොව් විතරක් එක්ස්පොර්ට් කරන්න කොඩ් එකක් ලිව්වා ඒත් මෙතන වැරද්දක් තියනවා එක්ස්පොර්ට් වෙන්නේ සිලෙක්ට් කරපු ඒවා විතරක් නෙවෙයි දන්න කෙනෙක් මේක හදාගන්න උදව්වක් දෙන්න!

  Dim FileWriter As StreamWriter
        Dim results As DialogResult
        results = SaveFileDialog1.ShowDialog
        If results = DialogResult.OK Then

            FileWriter = New StreamWriter(SaveFileDialog1.FileName, False)
            Dim numCols As Integer = dgvData.ColumnCount
            Dim numRows As Integer = dgvData.SelectedRows.Count
            For count As Integer = 0 To numRows - 1
                For count2 As Integer = 0 To numCols - 1
                    FileWriter.Write(dgvData.Rows(count).Cells(count2).Value)
                    If (count2 <> numCols) Then
                        FileWriter.Write(", ")
                    End If
                Next
                FileWriter.WriteLine()
            Next
            FileWriter.Close()
        End If
        RefreshData()

 

[xfacebookx]

බම්ප්

 

[xfacebookx]

bump ekak denna

 

[thechoice]

me link eka balanna

http://www.gallestar.com/Edu
http://www.gallestar.com/Edu/vbt.php

 

[xfacebookx]

බම්ප්්

 

[xfacebookx]

bump ekak denno

 

[xfacebookx]

bumpxx

 

[Blaster1234]

seelct karagathte chekbox ekakainda

 

[xfacebookx]

seelct karagathte chekbox ekakainda

නෑ මචන් ඩේටා ග්‍රිඩ්විව් එකෙන්!

 

[djranga]

here is the answer
Dim FileWriter As StreamWriter
Dim results As DialogResult
results = SaveFileDialog1.ShowDialog
If results = DialogResult.OK Then

FileWriter = New StreamWriter(SaveFileDialog1.FileName, False)
Dim numCols As Integer = dgvData.ColumnCount
Dim numRows As Integer = dgvData.RowCount' <--changed here
For count As Integer = 0 To numRows - 1
For count2 As Integer = 0 To numCols - 1

If dgvData.Item(count2, count).Selected = True Then '<--changed here
FileWriter.Write(dgvData.Rows(count).Cells(count2).Value)
If (count2 <> numCols) Then
FileWriter.Write(", ")
End If
End If
Next
FileWriter.WriteLine()
Next
FileWriter.Close()
End If
' RefreshData()
End Sub

 

[xfacebookx]

here is the answer
Dim FileWriter As StreamWriter
Dim results As DialogResult
results = SaveFileDialog1.ShowDialog
If results = DialogResult.OK Then

FileWriter = New StreamWriter(SaveFileDialog1.FileName, False)
Dim numCols As Integer = dgvData.ColumnCount
Dim numRows As Integer = dgvData.RowCount' <--changed here
For count As Integer = 0 To numRows - 1
For count2 As Integer = 0 To numCols - 1

If dgvData.Item(count2, count).Selected = True Then '<--changed here
FileWriter.Write(dgvData.Rows(count).Cells(count2).Value)
If (count2 <> numCols) Then
FileWriter.Write(", ")
End If
End If
Next
FileWriter.WriteLine()
Next
FileWriter.Close()
End If
' RefreshData()
End Sub

EXPORT එකේදි මචන් සිලෙක් නොකරපු රොව් වලට නිකන් රොව් එකක් ඇඩ් වෙනවා මචන් ඒකට මොකද කරන්නේ?

 

[xfacebookx]

ඉමපච‘‘

 

[xfacebookx]

බම්ප්

 

[xfacebookx]

බම්ප්

 

[xfacebookx]

බම්ප

 

[chucks]

BUMP!!!​

 

[xfacebookx]

බම්ප්

 

[xfacebookx]

danna ekekwath nedda?

 

[djranga]

try this...

Dim FileWriter As StreamWriter
Dim results As DialogResult
results = SaveFileDialog1.ShowDialog
If results = DialogResult.OK Then

FileWriter = New StreamWriter(SaveFileDialog1.FileName, False)
Dim numCols As Integer = dgvData.ColumnCount
Dim numRows As Integer = dgvData.RowCount

For count As Integer = 0 To numRows - 1
If dgvData.Rows(count).Selected = True Then '<--changed here
For count2 As Integer = 0 To numCols - 1
FileWriter.Write(dgvData.Rows(count).Cells(count2).Value)
If (count2 <> numCols) Then
FileWriter.Write(", ")
End If
Next
FileWriter.WriteLine() ' <--changed here
End If
Next
FileWriter.Close()
End If
' RefreshData()