用datalist+datagrid组合实现 '设置datagrid的属性,使其有下拉的那个三角形 Private Sub dg详单_ButtonClick(ByVal ColIndex As Integer) On Error GoTo ButtonErrWith dg详单 DataList1(ColIndex).Width = .Columns(ColIndex).Width DataList1(ColIndex).Left = .Columns(ColIndex).Left DataList1(ColIndex).Top = .Top + .Row * .RowHeight + 610 End With DataList1(ColIndex).Visible = True DataList1(ColIndex).SetFocus Exit Sub ButtonErr: End Sub
'设置datagrid的属性,使其有下拉的那个三角形
Private Sub dg详单_ButtonClick(ByVal ColIndex As Integer)
On Error GoTo ButtonErrWith dg详单
DataList1(ColIndex).Width = .Columns(ColIndex).Width
DataList1(ColIndex).Left = .Columns(ColIndex).Left
DataList1(ColIndex).Top = .Top + .Row * .RowHeight + 610
End With
DataList1(ColIndex).Visible = True
DataList1(ColIndex).SetFocus
Exit Sub
ButtonErr:
End Sub
.colcontain 获得列的坐标
.rowcontain 获得行的坐标