各位老师:
我做的一个表在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)