Visual Basic

NewHeaderText = InputBox("blablabla")<br />
MyDataSet1.Tables(0).Columns(0).ColumnName = NewHeaderText

NewHeaderText = InputBox("blablabla")<br />
If NewHeaderText.Length > 0 Then<br />
MyDataSet1.Tables(0).Columns(0).ColumnName = NewHeaderText<br />
End If

<br />
        Dim iActiveCol As Integer = e.ColumnIndex<br />
        Dim iActiveRow As Integer = e.RowIndex<br />
        If iActiveRow = -1 Then<br />
            If TypeOf sender Is DataGridView Then<br />
                Dim sColumnName As String<br />
                sColumnName = InputBox("Enter Column Name", "ColumnName", CType(ctr, DataGridView).Columns(iActiveCol).HeaderText)<br />
                If sColumnName <> "" Then<br />
                    CType(ctr, DataGridView).Columns(iActiveCol).HeaderText = sColumnName<br />
                    CType(ctr, DataGridView).ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.AutoSize<br />
                Else<br />
                    ' CType(ctr, DataGridView).Columns(iActiveCol).HeaderText = sColumnName '' Here it is erasing the text if i make it clear the text in inputbox  and cancel  . <br />
How to handle this one .<br />
                     <big>  Exit Sub</big><br />
                End If<br />
            End If <br />
        End If

<br />
If sColumnName <> "" Then<br />
CType(ctr, DataGridView).Columns(iActiveCol).HeaderText = sColumnName<br />
CType(ctr, DataGridView).ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.AutoSize<br />
Else<br />
Exit Sub<br />
End If<br />

<br />
Else<br />
Exit Sub<br />

Piyush Vardhan Singh wrote:

Dim dt As New DataTable
Dim ds As New DataSet()
adp.Update(ds)

conn = New OleDb.OleDbConnection(connString)
 
Dim str1 As String = "select * from messages;"
 
adp = New OleDb.OleDbDataAdapter(str1, conn)
Dim ds As New DataSet()
adp.Update(ds)
GridControl1.DataSource = ds

<br />
If (str = 3) then<br />
    str = 3<br />
else<br />
    str = str<br />
end if<br />