主题：[求助]

各位老师：

  我做的一个表在datacolchanged 加在下面一段代码后就闪退，我已检查过其他代码，在移除这段代码后，运作均没有问题。我左看右看也看不出问题，谁能告诉我错在哪里？

Dim qc1 As DataRow = DataTables("供应商管理").Find("[交通_项目] = '大巴32座_全境每天'")

Dim qc2 As DataRow = DataTables("供应商管理").Find("[交通_项目] = '面包车16座_每天'")

Dim qc3 As DataRow = DataTables("供应商管理").Find("[交通_项目] = '吉普车5座_每天'")

Dim qc4 As DataRow = DataTables("供应商管理").Find("[交通_项目] = '小车4座_每天'")

e.DataRow("车辆数_大巴每天") = IIF(e.DataRow("车辆数_大巴") > 0,qc1("交通_价格"),0)

e.DataRow("车辆数_面包车每天") = IIF(e.DataRow("车辆数_面包车") > 0,qc2("交通_价格"),0)

e.DataRow("车辆数_吉普车每天") = IIF(e.DataRow("车辆数_吉普车") > 0,qc3("交通_价格"),0)

e.DataRow("车辆数_小车每天") = IIF(e.DataRow("车辆数_小车") > 0,qc4("交通_价格"),0)

谢谢！问题解决，我真没想到问题出在这里，因为以前也运行过，一直没问题，不知道改动了什么地方触发了循环