Datagrid DataGrid1.Columns.Remove(0) ' 0 DataGrid1.Columns.Add(0).Caption= ' DataGrod1.Columns(0).DataField= Name ' Adodc1.Refresh DataGrid BackColor Font DataGrid CellPadding HTML CellSpacing HTML Width HTML () HorizontalAlign () DataGrid Font FontInfo FontInfo Size, Name, Bold, Italic Font (-) VB.Net C#(.) 1 DataGrid DataGrid Recordset DataGrid DataGrid DataGrid DataSource DataSource DataGrid Visual Basic 5.0 DBGrid DataGrid DBGrid DBGrid Visual Basic Tools 2 DataList DataGrid DataGrid DataGrid
DataGrid DataGrid 1: DataGrid DataGrid 1. Microsoft (.MDL) Northwind OLE DB 2. ADO Data ConnectionString 1 OLE DB 3. Ado Data RecordSource SQL Select * From MyTableName Where CustID = 12 4. DataGrid DataSource ADO Data 5. DataGrid 6. DataGrid 7. 8. DataGrid 9. 3 DataSource RecordSource DataSource DataGrid ADO Data DataSourceRecordSourceADO Data '' ADO Data Northwind '' Products '' SupplierID = 12 Dim strquery As String strquery = "SELECT * FROM Suppliers WHERE SupplierID = 12" Adodc1.RecordSource = strquery Adodc1.Refresh 4 DataSource DataSource ADO Data RecordSource DataSource ADO Data ADO Data '' DataSource Pubs '' Authors ADO Data
Set DataGrid1.DataSource = adopubsauthors 5 DataSource DataGrid SQLServer Rebind DataGrid ClearFields DataGrid DataGrid RowColChange Click Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) '' Debug.Print DataGrid1.Text; DataGrid1.Row; DataGrid1.Col End Sub 6 CellText CellValue NumberFormat CellText CellValue NumberFormat ProductID DataGrid "P-0000" ProductID "3" "P-0003" Private Sub Form_Load() DataGrid1.Columns("ProductID").NumberFormat = "P-0000" End Sub CellValue Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) Debug.Print _ DataGrid1.Columns("ProductID").CellValue(DataGrid1.Bookmark) End Sub CellValue CellText Bookmark CellText Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) Debug.Print _ DataGrid1.Columns("ProductID").CellText(DataGrid1.Bookmark) End Sub
CellText DataGrid Text
(Crystal Report 4.6) (Crystal Report 4.6) Access97,, Access2000, 97, 97, Links. 1 VB. : COMMON\TOOLS\VB\CRYSREPT\CRYSTL32.EXE : 1231467890,: \Program Files\Microsoft Visual Studio\Common\crw32.exe VB6 : (Binary )(BLOB ) 2: VB : --,,, SQL.rpt VB Crystal Report Control 4.6 Access, : CrystalReport1.DiscardSavedData = True ' CrystalReport1.ReportFileName = App.Path & "\mdb.rpt" CrystalReport1.WindowState = crptmaximized CrystalReport1.Action = 1 SQL Server 2000,: CrystalReport1.Connect = "ODBC;DNS=SQL_db1;UID=" & Text4.Text & ";PWD=" & Text5.Text & ";DSQ=db1" ' SQL Server ODBC CrystalReport1.DiscardSavedData = True ' CrystalReport1.ReportFileName = App.Path & "\sql.rpt" CrystalReport1.WindowState = crptmaximized CrystalReport1.Action = 1 : a., : File--Report Options-Preview Pages Start With --Full Size b. Detail, Design,
: Hide Section c., Design Detail, Format Section New Page After d. Detail,,: Print on multiple lines e.detail,, f.,bcb QuickReport.