[已解决]求助选项按钮怎么写入ListView表啊

风思

现窗体中有OptionButton1、OptionButton2、OptionButton3三个选项按钮。怎么把这个写入ListView里。

比如三个选项按钮分别为：现金、挂帐、转帐，ListView表里有个相对应的为支付方式。选项按钮三选一。

最佳答案

月排行榜 / 总排行榜

zjdh

2015-5-7 14:55

数据统计.rar (33.62 KB, 下载次数: 27)

2015-5-7 14:55 上传

点击文件名下载附件

跳转到最佳答案楼层

风思

如图

zjdh

发附件

风思

附件已传

风思

zjdh 发表于 2015-5-7 14:02
发附件

附件已上传

zjdh

数据统计.rar (33.62 KB, 下载次数: 27)

2015-5-7 14:55 上传

点击文件名下载附件

风思

zjdh 发表于 2015-5-7 14:55

谢谢zjdh，不过我这打开提示“无法装载这个对象，因为它不适用于这台计算机。 ”是什么问题呢？

风思

点进去后，运行时“编辑错误：找不到工程或库”

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