Терпение есть добродетель, отсутствие - признак бакланства.ba4inskii писал(а):ни кто не знает?
или игнорируете?
Data_xls.Recordset.MoveFirst
While Not Data_xls.Recordset.EOF
Data_xls.Recordset.Fields("Uid").Value = data_class.Recordset.Fields("uid").Value
Data_xls.Recordset.MoveNext
Wend
Antonariy писал(а):Терпение есть добродетель, отсутствие - признак бакланства.ba4inskii писал(а):ни кто не знает?
или игнорируете?
- Код: Выделить всё
Data_xls.Recordset.MoveFirst
While Not Data_xls.Recordset.EOF
Data_xls.Recordset.Fields("Uid").Value = data_class.Recordset.Fields("uid").Value
Data_xls.Recordset.MoveNext
Wend
Object Browser (F2) писал(а):Function ColContaining(X As Single) As Integer
Member of MSDataGridLib.DataGrid
Identifies a column under an X coordinate
Konst_One писал(а):а может тебе будет достаточно события RowColChange :?:
Main.data_xls2.Recordset.Fields("err").Value = "OK"
Private Sub data_xls2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Debug.Print data_xls2.RowContaining(Y)
End If
End Sub
а как определить строчку над которой нажали правую кнопку мыши
Object Browser (F2) писал(а):
Konst_One писал(а):а ты проверь сначала
- Код: Выделить всё
Private Sub data_xls2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Debug.Print data_xls2.RowContaining(Y)
End If
End Sub
Antonariy писал(а):а как определить строчку над которой нажали правую кнопку мыши
Взять целую часть от Y / Main.data_xls2.RowHeight
Для любителей нестандартных решений
А вообще я что, просто так писалObject Browser (F2) писал(а):
Это нужно использовать в паре с RowContainingFunction RowBookmark(RowNum As Integer)
Member of MSDataGridLib.DataGrid
Returns bookmark corresponding to a display row
Сейчас этот форум просматривают: SemrushBot и гости: 12