Code:
Sub DataTable2Tab(ByVal table As System.Data.DataTable, ByVal filename As String, _ ByVal sepChar As String) Dim writer As System.IO.StreamWriter Try writer = New System.IO.StreamWriter(filename)
Sub DataTable2Tab(ByVal table As System.Data.DataTable, ByVal filename As String, _ ByVal sepChar As String) Dim writer As System.IO.StreamWriter Try writer = New System.IO.StreamWriter(filename)
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles MyBase.Load Me.Cursor = New Cursor("C:\Windows\Cursors\pen_m.cur") End Sub End Class
Dim fs As New IO.FileStream(inFilename, IO.FileMode.Open) Dim sr As New IO.StreamReader(fs)
CType(MainReport.ReportDefinition.ReportObjects.Item("txtBox1"), _ CrystalDecisions.CrystalReports.Engine.TextObject).Text = textbox1.text
Public Class Form1 Dim dataTable as New DataTable Dim dataView as New DataView
SELECT name, address FROM Users WHERE name = @name
UsersTableAdapter.NameQuery(Form1.name)
Panel1.Controls.Clear() childForm.FormBorderStyle = FormBorderStyle.None childForm.MaximizeBox = False childForm.MinimizeBox = False childForm.ControlBox = False Me.IsMdiContainer = True childForm.MdiParent
MasterBox.SelectedIndex = num - 1
Leave a comment: