Click here to Skip to main content
15,902,189 members

Comments by Arvind61 (Top 20 by date)

Arvind61 28-Aug-18 9:24am View    
Please find the code below.
Private Sub showNormalRow(ByVal classRowId As Integer, ByVal sectionRowId As Integer)
Static intRowNo As Integer = 0
dsCombined.Tables(0).Rows.Add(dsDataDsCombined.Tables(0).Rows(0).Item(0), _
dsDataDsCombined.Tables(0).Rows(0).Item(1), strClassTeacherSelected)
If intRowNo > 0 Then
dgvRecords.Rows.Add()
End If
'Dim colClassName As New DataGridViewTextBoxColumn
colClassName.Name = "Class_Name"
colClassName.HeaderText = "Class Name"
colClassName.ReadOnly = True
colClassName.SortMode = DataGridViewColumnSortMode.NotSortable
Dim colClassNameCell As New DataGridViewTextBoxCell
colClassNameCell.Value = dsCombined.Tables(0).Rows(0)(0)
colClassName.CellTemplate = colClassNameCell
Static booFirstTimeClass As Boolean = True
If booFirstTimeClass Then
dgvRecords.Columns.Add(colClassName)
booFirstTimeClass = False
End If
dgvRecords(0, intRowNo).Value = dsCombined.Tables(0).Rows(intRowNo)(0)
'Dim colSectionName As New DataGridViewTextBoxColumn
colSectionName.Name = "Section_Name"
colSectionName.HeaderText = "Section Name"
colSectionName.ReadOnly = True
colSectionName.SortMode = DataGridViewColumnSortMode.NotSortable
Static booFirstTimeSection As Boolean = True
If booFirstTimeSection Then
dgvRecords.Columns.Add(colSectionName)
booFirstTimeSection = False
End If
dgvRecords(1, intRowNo).Value = dsCombined.Tables(0).Rows(intRowNo)(1)
'Dim colcmbClassTeacher As New DataGridViewTextBoxColumn
colcmbClassTeacher.HeaderText = "Class Teacher"
colcmbClassTeacher.ReadOnly = True
colcmbClassTeacher.SortMode = DataGridViewColumnSortMode.NotSortable
Static booFirstTimeClassTeacher As Boolean = True
If booFirstTimeClassTeacher Then
dgvRecords.Columns.Add(colcmbClassTeacher)
booFirstTimeClassTeacher = False
End If
dgvRecords(2, intRowNo).Value = dsCombined.Tables(0).Rows(0)(2)
Dim objclsConnection As clsConnection
Dim strSql As String
Dim intNoOfOtionalSubjs As Integer
Static dsComboBoxSubject As DataSet
Static dsComboBoxSubjectForOptionalSubjts As DataSet
Static booEnteredFirstTime As Boolean = True
If booEnteredFirstTime Then
dsComboBoxSubjectForOptionalSubjts = New DataSet()
dsComboBoxSubjectForOptionalSubjts.Clear()
strSql = generateSqlForOptionalSubjsForThisClassSec(classRowId, sectionRowId)
objclsConnection = New clsConnection(strSql, "select", "Tbl_Eliminated_Subj")
dsComboBoxSubjectForOptionalSubjts = objclsConnection.readyDataSet()
intNoOfOtionalSubjs = dsComboBoxSubjectForOptionalSubjts.Tables(0).Rows.Count
dsComboBoxSubject = New DataSet()
dsComboBoxSubject.Clear()
strSql = "select SubjectID, Subject_Name from Tbl_Subject order by SubjectID"
objclsConnection = New clsConnection(strSql, "select", "Tbl_Subject")
dsComboBoxSubject = objclsConnection.readyDataSet()
booEnteredFirstTime = False
End If
intNoOfOtionalSubjs -= 1
'Dim colcmbSubject As New DataGridViewComboBoxColumn
colcmbSubject.Name = "Subject_Name"
colcmbSubject.HeaderText = "Subject"
colcmbSubject.SortMode = DataGridViewColumnSortMode.NotSortable
Dim colcmbSubjectCell As New DataGridViewComboBoxCell
If intNoOfOtionalSubjs >= 0 Then
colcmbSubjectCell.DataSource = dsComboBoxSubjectForOptionalSubjts.Tables(0)
Else
colcmbSubjectCell.DataSource = dsComboBoxSubject.Tables(0)
End If
colcmbSubjectCell.ValueMember = "SubjectID"
colcmbSubjectCell.DisplayMember = "Subject_Name"
colcmbSubject.CellTem
Arvind61 27-Aug-18 17:00pm View    
if you want more info please let me know.
Arvind61 27-Aug-18 16:56pm View    
I've made a function that adds a new row when called.So whenever I call this function called AddNewRow(), It adds one row.The row doesn't disappear, only the entries in the textboxes (and not the combos) in the 'Previous' rows disappear(not the current row). Combos remain same.
Arvind61 24-Nov-17 4:46am View    
Thank for your reply. The Customer Information is coming from the user who enters it in the Customer Information Dialog Box ( Created in the User interface Editor ) during installation. I want to read the Name and Organization programmatically and use it in my application for which the installer is created. For e.g. I want to write the Name and Organization of the person installing this application into a Label in one of the forms in this Application.
Arvind61 11-Jul-17 14:28pm View    
My installation includes the required build ie 3.0.40818 of s3. I checked it from Add/Remove programs. But the problem continues.