Private Sub MoveCheckBox()
On Error GoTo errore
Dim col As msdatagridlib.Column
Set col = DataGrid1.Columns(DataGrid1.col)
If col.Caption = "sino" And DataGrid1.CurrentCellVisible Then
Checkbox.Move DataGrid1.Left + col.Left, DataGrid1.Top + DataGrid1.RowTop(DataGrid1.Row), col.Width
Checkbox.ZOrder
Checkbox.SetFocus
If col.Text = "0" Then
Checkbox.Value = 0
Else
Checkbox.Value = 1
End If
Exit Sub
End If
errore:
Checkbox.Move -10000
If DataGrid1.Visible Then DataGrid1.SetFocus
End Sub
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Call MoveCheckBox
End Sub
Private Sub DataGrid1_RowResize(Cancel As Integer)
Call MoveCheckBox
End Sub
Private Sub DataGrid1_Scroll(Cancel As Integer)
Call MoveCheckBox
End Sub
Private Sub DataGrid1_SplitChange()
Call MoveCheckBox
End Sub