Page History

Visual Basic

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim sqlStr As String = TextBox1.Text
Dim da as Oledb.OleDbDataAdapter = New Oledb.OleDbDataAdapter (sqlStr,
Me.CustomersTableAdapter.Connection)
Dim ds As DataSet = New DataSet()
ds.Clear() Try
da.Fill(ds, "mySQL") Me.C1TrueDBGrid1.DataSource = Nothing
Me.C1TrueDBGrid1.ClearFields()

Me.C1TrueDBGrid1.SetDataBinding(ds.Tables("mySQL"), "", False)
Catch
MessageBox.Show("Error in SQL clause")
End Try
End Sub

C#

<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="f97726e7-1521-4fcf-a0b0-f662bd7bd22e"><ac:plain-text-body><![CDATA[

private void button1_Click(System.object sender, System.EventArgs e)

{ string sqlStr = TextBox1.Text;

da as Oledb.OleDbDataAdapter = New Oledb.OleDbDataAdapter (sqlStr, this.CustomersTableAdapter.Connection);

DataSet DataSet ds = new DataSet();

ds.Clear();

try {

da.Fill(ds, "mySQL");

this.c1TrueDBGrid1.DataSource = null;

this.c1TrueDBGrid1.ClearFields();

this.c1TrueDBGrid1.SetDataBinding(ds.Tables["mySQL"], "", false); }

catch () {

]]></ac:plain-text-body></ac:structured-macro>
MessageBox.Show ("Error in SQL clause");
}
}

Visual Basic

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load ' Create an additional split.
Me.C1TrueDBGrid1.InsertHorizontalSplit(0)

' Hide all columns in the leftmost split except 0 and 1.
Dim x As Integer
For x = 2 To Me.C1TrueDBGrid1.Columns.Count - 1

Me.C1TrueDBGrid1.Splits(0).DisplayColumns.Visible = False

Next 
' Configure split 0 to display exactly 2 columns.
With Me.C1TrueDBGrid1.Splits(0)
.SplitSizeMode = C1.Win.C1TrueDBGrid.SizeModeEnum.NumberOfColumns
.SplitSize = 2
.AllowHorizontalSizing = False
End

With 
' Make columns 0 and 1 invisible in split 1.
Me.C1TrueDBGrid1.Splits(1).DisplayColumns(0).Visible = False Me.C1TrueDBGrid1.Splits(1).DisplayColumns(1).Visible =

False 
' Turn off record selectors in split 1.
Me.C1TrueDBGrid1.Splits(1).RecordSelectors = False
End Sub

C#

private void Form1_Load(System.object sender, System.EventArgs e) {
// Create an additional split. this.c1TrueDBGrid1.InsertHorizontalSplit(0);
<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="5d440f45-7c69-480c-86dd-98c9c37915da"><ac:plain-text-body><![CDATA[ // Hide all columns in the leftmost split except 0 and 1.

int x; for (x = 2 ; x < this.c1TrueDBGrid1.Columns.Count; x++) { this.c1TrueDBGrid1.Splits[0].DisplayColumns[x].Visible = false; }
]]><
/ac:plain-text-body></ ac:structured-macro>
// Configure split 0 to display exactly 2 columns.
<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="06065703-cfb0-46f6-a87d-54f80701955a"><ac:plain-text-body><![CDATA[ this.c1TrueDBGrid1.Splits[0].SplitSizeMode = C1.Win.C1TrueDBGrid.SizeModeEnum.NumberOfColumns; this.c1TrueDBGrid1.Splits[0].SplitSize = 2; this.c1TrueDBGrid1.Splits[0].AllowHorizontalSizing = false;
]]><
/ac:plain-text-body></ ac:structured-macro>
// Make columns 0 and 1 invisible in split 1. <ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="33523b6d-17ac-4831-84b0-23173da23ef9"><ac:plain-text-body><![CDATA[

this.c1TrueDBGrid1.Splits[1].DisplayColumns[0].Visible = false; this.c1TrueDBGrid1.Splits[1].DisplayColumns[1].Visible = false;
]]><
/ac:plain-text-body></ ac:structured-macro>
// Turn off record selectors in split 1.
<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="48b220e5-e020-453b-9b86-1700cfbfb9d4"><ac:plain-text-body><![CDATA[ this.c1TrueDBGrid1.Splits[1].RecordSelectors = false;
]]></ac:plain-text-body></ac:structured-macro>
}

Visual Basic

' Change the presentation of the grid.
With Me.C1TrueDBGrid1.Splits(0).DisplayColumns
.Item("Country").Style.BackColor = System.Drawing.Color.Cyan Dim fntFont As Font
fntFont = New Font("Times New Roman", .Item("Country").Style.Font.Size, FontStyle.Regular)
.Item("Country").Style.Font = fntFont
.Item("Last").Style.ForeColor = System.Drawing.Color.Red
End With
Me.C1TrueDBGrid1.Columns("last").NumberFormat = "FormatText Event"
With Me.C1TrueDBGrid1.HeadingStyle
Dim fntfont As Font

fntfont = New Font(.Font.Name, .Font.Size, FontStyle.Bold) .Font = fntfont
.BackColor = System.Drawing.Color.Blue
.ForeColor = System.Drawing.Color.Yellow
End With

Visual Basic

With Me.C1TrueDBGrid1.PrintInfo

Dim fntFont As Font
fntFont = New Font(.PageHeaderStyle.Font.Name, .PageHeaderStyle.Font.Size, 
FontStyle.Italic)
.PageHeaderStyle.Font = fntFont
.PageHeader = "Composers Table" 
' Column headers will be on every page.
.RepeatColumnHeaders =

True 
' Display page numbers (centered).
.PageFooter = "Page: \p" 
' Invoke print preview.
.UseGridColors = True
.PrintPreview()
End With

Visual Basic

' String to be copied to the clipboard.
Dim strTemp As String

Dim row As Integer
Dim col As C1.Win.C1TrueDBGrid.C1DataColumn
Dim cols As Integer, rows As Integer
If Me.C1TrueDBGrid1.SelectedRows.Count > 0 Then For Each row In Me.C1TrueDBGrid1.SelectedRows

' Copy everything here.
For Each col In Me.C1TrueDBGrid1.SelectedCols strTemp = strTemp & col.CellText(row) & vbTab Next
strTemp = strTemp & vbCrLf
Next

System.Windows.Forms.Clipboard.SetDataObject(strTemp, False)
MessageBox.Show ("Range of " & Me.C1TrueDBGrid1.SelectedCols.Count & " x " & C1TrueDBGrid1.SelectedRows.Count & " cells have been copied to the clipboard

in 
TAB delimited format")
Else
MessageBox.Show ("Please select a range of cells")
End If

C#

// String to be copied to the clipboard.

string strTemp;

int row;

C1.Win.C1TrueDBGrid.C1DataColumn col;

int cols, rows;

if (this.c1TrueDBGrid1.SelectedRows.Count > 0 )

{ foreach (row in this.c1TrueDBGrid1.SelectedRows) {

// Copy everything here.

foreach (col in this.c1TrueDBGrid1.SelectedCols)

{ strTemp = strTemp + col.CellText(row) + "\t";

}

strTemp = strTemp + "\n";

}
System.Windows.Forms.Clipboard.SetDataObject(strTemp, false);

MessageBox.Show ("Range of " + this.c1TrueDBGrid1.SelectedCols.Count.ToString() + " x " + this.c1TrueDBGrid1.SelectedRows.Count.ToString() + " cells have been copied to the clipboard in TAB delimited format"); }

else {
MessageBox.Show ("Please select a range of cells");
}

C#

<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="8343d73f-159e-4863-9178-ecd070e60361"><ac:plain-text-body><![CDATA[

dbTable = this.DsCustomer.Tables[0].Copy(); // Fill each combobox.
]]></ac:plain-text-body></ac:structured-macro>
FillComboBox1();
FillCombo(comboBox2);
FillCombo(comboBox3);
FillCombo(comboBox4); FillCombo(comboBox5); this.checkBox2.Checked = true; // Initalize border sizes.
this.borderBottom = 1;

this.borderLeft = 1;

this.borderRight = 1;

this.borderTop = 1;