用第三方插件可以,但要付money

解决方案 »

  1.   

    用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
      

  2.   

    .Button  出现一个小按扭
    .colcontain  获得列的坐标
    .rowcontain  获得行的坐标
      

  3.   

    第三方插件是什么?网上有没有啊? 谢谢fastxyf(迅影),马上给分!