dr("评分") =Tables("坯布信息").Current("评分")
...........
注意:“=”的含义为 赋值,即将 右边的 值赋予左边,不是 等于
建议 狐爸 在帮助中加上 一些VB的基本概念,我觉得没有VB基础的新人对类似概念不知道