错误提示是无法在整数和字符之间进行=比较，检查列的数据类型，以及合成的表达式。
这种问题，用这个方法分析一下，找出是那一行出错：
http://www.foxtable.com/help/topics/1485.htm
你很快就知道原因了。
不到30秒，就知道是这这一行：
Dim pr As DataRow = DataTables("在线动态").Find("位置 = '"& dr("位置") &"' And 组别 = '"& Right(cl.Name,2) &"'")
检查位置列，发现位置列是整数型，整数型合成表达式，不需要单引号，应该：
Dim pr As DataRow = DataTables("在线动态").Find("位置 = "& dr("位置") &" And 组别 = '"& Right(cl.Name,2) &"'")
其他你可以自己调整。
[此贴子已经被作者于2015/4/16 14:37:12编辑过]
加好友 
发短信
Post By：2015/4/16 14:34:00 [显示全部帖子]
