点进去后,运行时“编辑错误:找不到工程或库”
Private Sub UserForm_Initialize()
Dim i
Dim Itm As ListItem
ListView1.ColumnHeaders.add 1, , "生产编号", ListView1.Width / 9
ListView1.ColumnHeaders.add 2, , "客户名称", ListView1.Width / 10, lvwColumnCenter
ListView1.ColumnHeaders.add 3, , "生产日期", ListView1.Width / 9, lvwColumnCenter
ListView1.ColumnHeaders.add 4, , "联系人", ListView1.Width / 16, lvwColumnCenter
ListView1.ColumnHeaders.add 5, , "联系电话", ListView1.Width / 14
ListView1.ColumnHeaders.add 6, , "制作要求", ListView1.Width / 7, lvwColumnCenter
ListView1.ColumnHeaders.add 7, , "长", ListView1.Width / 18, lvwColumnCenter
ListView1.ColumnHeaders.add 8, , "宽", ListView1.Width / 18, lvwColumnCenter
ListView1.ColumnHeaders.add 9, , "平方", ListView1.Width / 16
ListView1.ColumnHeaders.add 10, , "单价", ListView1.Width / 20, lvwColumnCenter
ListView1.ColumnHeaders.add 11, , "数量", ListView1.Width / 20, lvwColumnCenter
ListView1.ColumnHeaders.add 12, , "金额", ListView1.Width / 16, lvwColumnCenter
ListView1.ColumnHeaders.add 13, , "支付方式", ListView1.Width / 12, lvwColumnCenter
ListView1.ColumnHeaders.add 14, , "开票号码", ListView1.Width / 16, lvwColumnCenter
ListView1.ColumnHeaders.add 15, , "地址", ListView1.Width / 15, lvwColumnCenter
ListView1.View = lvwReport 'listview控件的显示外观
ListView1.Gridlines = True '是否有表格线
ListView1.FullRowSelect = True
End Sub |