Insert space between records from open .. close dataset

Question

I am generating a file that contains different information for a business partner with the aid of datasets. I want my records to look like this ...
partner1 BPname1 address1 contact info1   - from table1
partner2 BPname2 address2 contact info2
partner1 agency1 address1 insurance obj1  - from table2
partner2 agency2 address2 insurance obj2
But the one I am seeing in the generated file in AL11 is like this ...
partner1 BPname1 address1 contact info1
partner2 BPname2 address2 contact info2
partner1 agency1 address1
partner2 agency2 address2
I want to see a space between records from tables 1 and 2.
Code:
OPEN DATASET FILE FOR OUTPUT IN TEXT MODE ENCODING DEFAULT
IF SUBRC = 0
   LOOP AT TABLE1
     TRANSFER TABLE1 TO FILE
   ENDLOOP
   CLOSE DATASET
   OPEN DATASET FILE APPENDING
   IF SUBRC = 0
     TRANSFER TABLE2 TO FILE
   ELSE
     MESSAGE ERROR
   ENDIF
ELSE
   MESSAGE ERROR
ENDIF
CLOSE DATASET
Thanks.

Answer 1

Hi Cor,
Here is my code to create datagridview (see below)
By the way, I would like to ask if i will always declare this code every time i will do the insert , update and delete records. Let say i have separate buttons for every process. its possible to create one time and i will call this function.
Another question. can i put a auto number in the first column of Datagridview upon adding of records.
Dim conn As New System.Data.OleDb.OleDbConnection() conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\jov\Desktop\FeedBackSystem\FBSystems\FBSystems\Data\KPI.accdb"
form load event (DataGridView)
    Dim dt As New DataTable        Private cma As CurrencyManager = DirectCast(BindingContext(dt), CurrencyManager)        'Set Data GridView
        With dgvReport            dt.Columns.Add("ItemNumber", GetType(String))            dt.Columns.Add("ReportName", GetType(String))            dt.Columns.Add("Ratings", GetType(String))            dt.Columns.Add("Comment", GetType(String))            AddHandler cma.CurrentChanged, AddressOf CurrentChanged            .ReadOnly = True
            .MultiSelect = False
            .AllowUserToAddRows = False
            .AllowUserToDeleteRows = False
            dgvReport.DataSource = dt            For Each c As DataGridViewColumn In dgvReport.Columns                c.Width = 200            Next
        End With
This is the code to insert records from textbox to datagridview
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
Dim i As Integer
dt.Rows.Add(txtItemNo.Text, CmbReportName.Text, CmbRate.Text, txtComment.Text)
End Sub