主题：如何在窗口中获取字段中的值？

求教：做了一个表，新增单位，其中一个字段名为：单位校验，已经赋值有的为1，有的为0，整数型。

请问下面的语句永远只执行否的条件，如何改正呢？谢谢！

 

 

If "[单位校验]">="1" Then
    MessageBox.Show("新参保单位都已新增,可以继续操作!", "提示",MessageBoxButtons.OK,MessageBoxIcon.Question)
Else
    MessageBox.Show("部分新参保单位没有新增,请检查并到新增单位中新增后才能继续操作!", "提示",MessageBoxButtons.OK,MessageBoxIcon.Question)
End If

此主题相关图片如下：11.jpg

谢谢了，可是出现了这个提示。如图：

正是，我就是写在按钮里。谢谢大师的指点，已经解决了。我是边看边学边问。总之非常感谢！

再麻烦一下，上面的那个是比较当前行，我想比较的是整个表的呢？因为表里有很多行，不可能一行一行的去检查吧？

With CurrentTable
    Dim r As Integer
    r = .Find("0", .RowSel + 1, "单位校验",  False, False, True)
    If r > - 1 Then '如果找到符合条件的行  
        .Position = r  '则选择该行
         MessageBox.Show("部分新参保单位没有新增,请检查并到新增单位中新增后才能继续操作!", "提示",MessageBoxButtons.OK,MessageBoxIcon.Question)
    Else
         MessageBox.Show("新参保单位都已新增,可以继续操作!", "提示",MessageBoxButtons.OK,MessageBoxIcon.Question)
    End If
End With

 

这段代码还可以吧？可以全表找了。

十分感谢！