主题：表的PrepareEdit事件问题,请教老师

规格表中有"规格"列跟"长度"列,规格为字符型,长度为双精度小数型,订单表中也有同样的两列,想实现订单表中"长度"输入以后从"规格表"中提取长度值-1跟+1的"规格"做为订

单表"长度"的列表项目,请教老师该怎么定义"规格表"中长度的值?下面的代码该怎么修改?

Dim v As Integer
v = Tables("规格").Cols("长度")

If e.IsFocusCell Then '如果是焦点所在单元格     
        If e.Col.Name = "规格" Then 

           e.Col.Combolist = DataTables("规格").GetComboListString("规格", "长度 >= '" & v-1 & "' And 长度 <= '" & v+1 &"'")
        End If
End If