各位老师：

  我做的一个表在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)

要判断列名的，不然容易死循环。

http://www.foxtable.com/webhelp/scr/1522.htm