Mr Kreskowiak, You stupid person. I retired a few years ago. I bought a laptop for fun and enjoyment - learning visial basic has become a very satisfying hobby. I have no grandchildren and my wife recently died. Inane and ignorant remarks is obviously your low standard. I have not conned anybody. I have posted genuine questions in these pages because I enjoy learning VB Get your facts right before posting pathetic and remarks. Stephen Comfort
Thanks for your help and advice! Steve
Hi Ignazio and Steve, Thanks for your replies, they have both helped me a lot and it's helped me to solve my problem. again, thanks Steve
Thanks for your help and advice! Steve
Here is an example:- "string of 23 characters" The above string has 23 characters, including the spaces What I want to do is count the number of charactersand then split the string at the next space after the half number, in this case, half of 23 is rounded up to 12 so I need to split the string between the "3" and the "c" to read like this:- "string of 23" and "characters" I've tried various string functions, and combinations of them but cannot work out how to do it. I'd appreciate your help. Regards, Steve
Thanks for your help and advice! Steve
Hi Henry, Thanks for that............. Steve
Thanks for your help and advice! Steve
Hi all, I'm learning about printing and have made good progress but there is one thing I can't understand: I want to set the paper size to a standard size = A4. I can do it using "papersize" - but is it better to use "paperkind" - if so, how do I do it? I'm using the full version of visual studio 2008 Thanks for your help and advice.... Regards, Steve
Thanks for your help and advice! Steve
Hi Mycroft, Yes, I agree with your crystal reports idea!!!! - it definitely is too much for this project. Yes, the data requirements are minimal and yes, I'm not using a database - I put records into a datagrid view and then serialize when finished. I'm using using VS 2008 full version. Could you point me in the direction of any articles/help/other threads/sites on this subject please I'm a beginner hobby programmer and know only a little but feel I've made good progress so far..... I've got this vision where it's possible to placce a piece of blank paper onto a form and then drag n drop the various objects onto it, ready for printing but I'm realising that probably isn't possible. (it's a good idea for an expert to design a class like that...!!!!). So could you give me some pointers in the direction I need to go....? Regards, Steve
Thanks for your help and advice! Steve
I’m working on a project that saves records to a datatable/dataset. I then serialize the dataset to save it, and deserialize to show the records in a datagridview, and I add more records, serialize, deserialize etc etc. – I’m using binary formatting. I added the dataset/datatable from the toolbox and selected “untyped” for the dataset. I want to print out this table and other text. Do I need to draw a report using graphics on to a page and then programmatically add the data from the deserialized file, or is there a better way to design and add data to a report? I’ve looked at crystal reports and report viewer and I cannot see how to programmatically add data using them – they both talk about connecting to a SQL or ADO database which mine isn’t. Any help and/or any tutorials about this would be appreciated. Regards, Steve
Thanks for your help and advice! Steve
Hi, I’m following a tutorial using serialization/saving records. I can make records, display them ok in a datgridview and then save them ok using serialization. Then I can reopen the programme and reload the dataset from the deserialised file, and show the records ok in the datagrid view - but I cannot add any more records to the datagridview. I’d be grateful for any help/advice/assistance. Regards, Steve Here is my code: Imports System.IO Imports System.Runtime.Serialization Imports System.Runtime.Serialization.Formatters.Binary Public Class Frm_DataEntry Dim ThePoint As New Point(540, 150) Public TheRecord As DataRow Dim ii As Integer Private Sub Frm_DataEntry_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Me.Location = ThePoint End Sub Private Sub Tbx01_FirstName_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tbx01_FirstName.Enter Tbx01_FirstName.Clear() Tbx02_LastName.Clear() Tbx03_Phone.Clear() End Sub Private Sub Btn01_Save_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn01_Save.Click TheRecord = Frm_Mainform.dt_Table.NewRow TheRecord(Frm_Mainform.dt_Col02_FirstName) = Tbx01_FirstName.Text TheRecord(Frm_Mainform.dt_Col03_LastName) = Tbx02_LastName.Text Frm_Mainform.dt_Table.Rows.Add(TheRecord) Frm01_WithDGV.DGV01.DataSource = Frm_Mainform.ds_Dataset Frm01_WithDGV.DGV01.DataMember = Frm_Mainform.dt_Table.ToString Frm01_WithDGV.DGV01_BS_Col01_PKey.DataPropertyName = Frm_Mainform.dt_Col01_PKey.ToString Frm01_WithDGV.DGV01_BS_Col02_FirstName.DataPropertyName = Frm_Mainform.dt_Col02_FirstName.ToString Frm01_WithDGV.DGV01_BS_Col03_LastName.DataPropertyName = Frm_Mainform.dt_Col03_LastName.ToString Dim ii As Integer ii = Frm_Mainform.dt_Table.Rows.Count MessageBox.Show(ii) End Sub Private Sub Btn02_SaveAndClose_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn02_SaveAndClose.Click Dim Filename As String = "PermitToWork.pmt" Dim fStream As FileStream Frm01_WithDGV.DGV01.DataSource = Frm_Mainform.ds_Dataset Frm01_WithDGV.DGV01.DataMember = Frm_Mainform.dt_Table.ToString Frm01_WithDGV.DGV01_BS_Col01_PKey.Width = 90 Frm01_WithDGV.DGV01_BS_Col02_FirstName.Width = 125 Frm01_WithDGV.DGV01_BS_Col03_LastName.Width = 125 Frm01_WithDGV.DG
I’m practicing a database and I have a 3-column table. I’m using binary formatting to save/open the file. I can’t see what is wrong with my code – I can display records in the datagrid view ok when I press the save button I can also save the records into the dataset ok when the save/close button is pressed. When I reopen the programme and press the reload button to reload the dataset, additional records will not be displayed nor saved though original records will be showing in the datagrid. When I reopen the programme and DO NOT press the reload button, I can enter new records and they will be saved because this is basically overwrites the original dataset. Ideally, I want to be able to open the dataset and then be able to add new records to the dataset/datatable. Any help and advice on how to correct this? Thanks, Steve Here is my code: Imports System.IO Imports System.Runtime.Serialization Imports System.Runtime.Serialization.Formatters.Binary Public Class Frm_DataEntry Dim ThePoint As New Point(540, 150) Public TheRecord As DataRow Dim ii As Integer Private Sub Frm_DataEntry_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Me.Location = ThePoint End Sub Private Sub Tbx01_FirstName_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tbx01_FirstName.Enter Tbx01_FirstName.Clear() Tbx02_LastName.Clear() Tbx03_Phone.Clear() End Sub Private Sub Btn01_Save_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn01_Save.Click TheRecord = Frm_Mainform.dt_Table.NewRow TheRecord(Frm_Mainform.dt_Col02_FirstName) = Tbx01_FirstName.Text TheRecord(Frm_Mainform.dt_Col03_LastName) = Tbx02_LastName.Text Frm_Mainform.dt_Table.Rows.Add(TheRecord) Frm01_WithDGV.DGV01.DataSource = Frm_Mainform.ds_Dataset Frm01_WithDGV.DGV01.DataMember = Frm_Mainform.dt_Table.ToString Frm01_WithDGV.DGV01_BS_Col01_PKey.DataPropertyName = Frm_Mainform.dt_Col01_PKey.ToString Frm01_WithDGV.DGV01_BS_Col02_FirstName.DataPropertyName = Frm_Mainform.dt_Col02_FirstName.ToString Frm01_WithDGV.DGV01_BS_Col03_LastName.DataPropertyName = Frm_Mainform.dt_Col03_LastName.ToString Dim ii As Integer ii = Frm_Mainform.dt_Table.Rows.Count MessageBox.Show(ii) End Sub Private Sub Btn02_SaveAndClose_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn02_SaveAndClose.Click Dim Filename As String = "PermitToWork.pmt" Dim fStream As FileStream Frm01_WithDGV.DGV01.DataSource = Frm_Mainform.ds_Dataset Frm01_WithDGV.DGV01.DataMember = Frm_
I’m practicing a database and I have a 3-column table. I’m using binary formatting to save/open the file. I can’t see what is wrong with my code – I can display records in the datagrid view ok when I press the save button I can also save the records into the dataset ok when the save/close button is pressed. When I reopen the programme and press the reload button to reload the dataset, additional records will not be displayed nor saved though original records will be showing in the datagrid. When I reopen the programme and DO NOT press the reload button, I can enter new records and they will be saved because this is basically overwrites the original dataset. Ideally, I want to be able to open the dataset and then be able to add new records to the dataset/datatable. Any help and advice on how to correct this? Thanks, Steve Here is my code: Imports System.IO Imports System.Runtime.Serialization Imports System.Runtime.Serialization.Formatters.Binary Public Class Frm_DataEntry Dim ThePoint As New Point(540, 150) Public TheRecord As DataRow Dim ii As Integer Private Sub Frm_DataEntry_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Me.Location = ThePoint End Sub Private Sub Tbx01_FirstName_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tbx01_FirstName.Enter Tbx01_FirstName.Clear() Tbx02_LastName.Clear() Tbx03_Phone.Clear() End Sub Private Sub Btn01_Save_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn01_Save.Click TheRecord = Frm_Mainform.dt_Table.NewRow TheRecord(Frm_Mainform.dt_Col02_FirstName) = Tbx01_FirstName.Text TheRecord(Frm_Mainform.dt_Col03_LastName) = Tbx02_LastName.Text Frm_Mainform.dt_Table.Rows.Add(TheRecord) Frm01_WithDGV.DGV01.DataSource = Frm_Mainform.ds_Dataset Frm01_WithDGV.DGV01.DataMember = Frm_Mainform.dt_Table.ToString Frm01_WithDGV.DGV01_BS_Col01_PKey.DataPropertyName = Frm_Mainform.dt_Col01_PKey.ToString Frm01_WithDGV.DGV01_BS_Col02_FirstName.DataPropertyName = Frm_Mainform.dt_Col02_FirstName.ToString Frm01_WithDGV.DGV01_BS_Col03_LastName.DataPropertyName = Frm_Mainform.dt_Col03_LastName.ToString Dim ii As Integer ii = Frm_Mainform.dt_Table.Rows.Count MessageBox.Show(ii) End Sub Private Sub Btn02_SaveAndClose_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn02_SaveAndClose.Click