Expand|Select|Wrap|Line Numbers
- Dim qryString As String = "SELECT tblBasicData.DataField1 AS Item, tblBasicData.DataField2 AS Hazard, " &
- "tblHIDChecklist.[Exists (Y/N)] AS [Exists], tblHIDChecklist.Description, tblBasicData.DataOrder " &
- "FROM tblBasicData INNER JOIN tblHIDChecklist ON tblBasicData.BasicDataUID = tblHIDChecklist.BasicDataUID " &
- "WHERE (((tblHIDChecklist.Export)=True)) " &
- "UNION " &
- "SELECT tblHIDDetail.HIDDetailUID AS Item, tblHIDDetail.Description AS Hazard, " &
- "tblHIDDetail.Quantity AS [Exists], tblHIDDetail.Units AS Descripition, tblBasicData.DataOrder " &
- "FROM (tblBasicData INNER JOIN tblHIDChecklist ON tblBasicData.BasicDataUID = tblHIDChecklist.BasicDataUID) " &
- "INNER JOIN tblHIDDetail ON tblHIDChecklist.HIDChecklistUID = tblHIDDetail.HIDChecklistUID " &
- "ORDER BY DataOrder;"
- ConnDB()
- Dim cmd As New System.Data.OleDb.OleDbCommand(qryString, Conn)
- dapDGV.SelectCommand = New OleDb.OleDbCommand(qryString, Conn)
- Dim cmb As New System.Data.OleDb.OleDbCommandBuilder(dapDGV)
- dapDGV.Fill(dasDGV)
- dgvExport.DataSource = dasDGV.Tables(0)
- Conn.Close()
- dgvExport.Columns("DataOrder").Visible = False
- If dasDGV.Tables(0).Rows.Count > 0 Then
- 'Sequence through dataset and remove UIDs from any Detail records.
- 'Convert any -1 or 0s to blanks in all checklist records
- For iRow As Integer = 0 To dgvExport.Rows.Count - 1
- If Len(dgvExport.Rows(iRow).Cells("Item").Value) = 36 Then
- dgvExport.Rows(iRow).Cells("Item").Value = ""
- End If
- If dgvExport.Rows(iRow).Cells("Exists").Value = -1 Then
- dgvExport.Rows(iRow).Cells("Exists").Value = ""
- ElseIf dgvExport.Rows(iRow).Cells("Exists").Value = 0 Then
- dgvExport.Rows(iRow).Cells("Exists").Value = ""
- End If
- Next
- Else
- MsgBox("No records have been identified for export.")
- End If
- MsgBox(dgvExport.ColumnCount)
- End Sub
Expand|Select|Wrap|Line Numbers
- MsgBox(frmHazCatExport.dgvExport.ColumnCount)