Hello All,
When I click a record on the grid it does not display on the form, please help me out.
here is my code below:
Private Sub MSHFlexGrid1_Click()
Dim cur As Single
cur = 1
MSHFlexGrid1.Rows = 11
MSHFlexGrid1.Cols = 11
Adodc1.Recordset.MoveFirst
Do Until Adodc1.Recordset.EOF
If MSHFlexGrid1.Rows = 1 And MSHFlexGrid1.TextMatrix(1, 0) = "" Then
MSHFlexGrid1.TextMatrix(1, 0) = cur
MSHFlexGrid1.TextMatrix(1, 1) = Adodc1.Recordset("day")
MSHFlexGrid1.TextMatrix(1, 2) = Adodc1.Recordset("Prod_Date")
MSHFlexGrid1.TextMatrix(1, 3) = Adodc1.Recordset("Shift")
MSHFlexGrid1.TextMatrix(1, 4) = Adodc1.Recordset("weave on oil 125ml_cartons")
MSHFlexGrid1.TextMatrix(1, 5) = Adodc1.Recordset("weave on oil 125ml_tons")
MSHFlexGrid1.TextMatrix(1, 6) = Adodc1.Recordset("weave on oil 250ml_cartons")
MSHFlexGrid1.TextMatrix(1, 7) = Adodc1.Recordset("weave on oil 250ml_tons")
MSHFlexGrid1.TextMatrix(1, 8) = Adodc1.Recordset("Total_no_of_cartons")
MSHFlexGrid1.TextMatrix(1, 9) = Adodc1.Recordset("Total_no_of_tons")
End If
Adodc1.Recordset.MoveNext
Loop
End Sub