Foxtable(狐表)用户栏目专家坐堂 → 如何在窗口中获取字段中的值?


  共有4271人关注过本帖树形打印复制链接

主题:如何在窗口中获取字段中的值?

帅哥哟,离线,有人找我吗?
ynbn99
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:10 积分:121 威望:0 精华:0 注册:2013/6/18 16:17:00
  发帖心情 Post By:2013/6/20 17:51:00 [只看该作者]

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/6/20 17:58:00 [只看该作者]

按照你一楼的提问,检查整个表,按钮的代码:

 

If DataTables("表名").Find("[单位校验]< 1") IsNot Nothing Then

     MessageBox.Show("新参保单位都已新增,可以继续操作!", "提示",MessageBoxButtons.OK,MessageBoxIcon.Question)

Else

      MessageBox.Show("新参保单位都已新增,可以继续操作!", "提示",MessageBoxButtons.OK,MessageBoxIcon.Question)

End If

  


 回到顶部
帅哥哟,离线,有人找我吗?
ynbn99
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:10 积分:121 威望:0 精华:0 注册:2013/6/18 16:17:00
  发帖心情 Post By:2013/6/20 18:14:00 [只看该作者]

十分感谢!


 回到顶部
总数 13 上一页 1 2