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: