主题：“12”f运算符后缺少操作数？

Dim dr As DataRow = DataTables("自助报障记录表").SQLFind("_identify = '" & CInt(msg) & "'")

改成

Dim dr As DataRow = DataTables("自助报障记录表").SQLFind("[_identify] = " & CInt(msg) & "")

-------------------

Dim nr As DataRow= DataTables("计算机中心交班表").Find("交班时间>" & d.AddMonths(-1) ,"交班时间 Desc") 

改成

Dim nr As DataRow= DataTables("计算机中心交班表").Find("交班时间>#" & d.AddMonths(-1) & "#","交班时间 Desc") 

------------------------------

加入msgbox定位出错位置 http://www.foxtable.com/webhelp/scr/1485.htm