请指教：循环赋值代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim bljypz As Integer = DataTables("部品质量管理").getValues("编号图号", "检验员 = '" & Values(Index) & "' And 检验区分 = '其它' And 日期>= #" & d1 & "# And 日期<= #" & d & "#").count '对不重复的图号进行计数

If bljypz = "0" Then Sheet(13+Index,2 ).Value = " " Else Sheet(13+Index,2 ).Value = bljypz

Dim bljysl As Integer = DataTables("部品质量管理").Compute("Sum([交检])", "检验员 = '" & Values(Index) & "' And 检验区分 = '其它' And 日期>= #" & d1 & "# And 日期<= #" & d & "#")

主题：请指教：循环赋值代码