代码是没有问题的。应该是sjr值的问题，如果它有比如单引号等值，就会影响。
试试
Dim cnt1 As Integer = DataTables("周工作").Compute("Count(责任人)","责任人 like '%" & sjr.replace("'", "''") & "%' And （进度 < 100 Or 进度 Is NULL)")
加好友 
发短信
Post By：2015/12/30 14:05:00 [显示全部帖子]
