Private Sub Command2_Click()
List.ColumnHeads = True
List.ColumnCount = 4
List.ColumnWidths = "3cm,5cm,5cm,1cm"
List.RowSource = "select * from 前检检查基础表"
End Sub
Private Sub Command2_Click()
List.ColumnHeads = True
List.ColumnCount = 4
List.ColumnWidths = "3cm,5cm,5cm,1cm"
List.RowSource = "select * from 前检检查基础表"
End Sub