在网上找了一个通讯代码，想用于收人情记录，其中需要一列记录金额，然后用Text1合计界面所选 类型金额的合计，比如我选择同事的时候自动合计同事送的所有金额。我的想法就是用一个时间控件时刻监视ListView1显示金额，然后合计显示在Text1。还有这个添加记录的时候，所有为空都可以添加，同时不能区分重复名，还有一个修改功能也没有搞懂，点击一个成员出来，修改候点击修改按钮好像没有反应，只有点击添加才可以。另外他这个数据导出没有写代码出来，希望各位路过的老师帮个忙解决一下，再此谢过了 。

[此贴子已经被作者于2020-7-19 13:44编辑过]

谢谢版主： 请问ListView1列数据合计代码怎么写呢？谢谢

[此贴子已经被作者于2020-7-20 12:17编辑过]

添加记录 加了判断  
 If Text1.Text = "" Or Text5.Text = "" Then
        MsgBox "姓名和所属类别不能为空！", vbInformation, "修改记录"
        Exit Sub '为空则退出
    End If
解决了，但是ListView1列的数据合计不知道怎么搞，请各位老师指点一下。

谢谢！cwa9958版主 以及其他热心的老师