表达式中的数值型,不需要单引号,字符型才需要单引号,而且你引用当前行数据的代码也是错误的。
代码应该是:
If e.IsFocusCell Then '如果是焦点所在单元格 If e.Col.Name = "规格" Then Dim v As Integer = e.Row("长度") e.Col.Combolist = DataTables("规格").GetComboListString("规格", "长度 >= " & v-1 & " And 长度 <= " & v+1 ) End IfEnd If