窗口录入与查询 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口录入与查询

共有21126人关注过本帖树形打印复制链接主题：窗口录入与查询

有点色

小大 41楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/2 14:13:00 [只看该作者]

参考，把权限管理看完

http://www.foxtable.com/webhelp/scr/2253.htm

云开月明

小大 42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00

Post By：2017/3/3 15:18:00 [只看该作者]

老师，

您好！

产品不良记录表有一个查询窗口（如图一），查找按钮CLICK事件如下，但出现错误提示（如图二）

此主题相关图片如下：2.png

Dim tbx As WinForm.TextBox = e.Form.Controls("TextFind")

Dim chk As WinForm.CheckBox = e.Form.Controls("模糊查找")

Dim str As String = tbx.Value

Dim dr As DataRow

If chk.checked Then

dr = DataTables("产品不良记录").Select("产品名称 Like '%" & str & "%'")

Else

dr = DataTables("产品不良记录").Select("产品名称 = '" & str & "'")

End If

If dr IsNot Nothing Then

Dim idx As Integer = Tables("产品不良记录").FindRow(dr)

If idx >= 0 Then

Tables("产品不良记录").Position = idx

Else

MessageBox.Show("不符合条件,请取消查询!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

盼复，为谢！

此主题相关图片如下：1.png

狐狸爸爸

小大 43楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2017/3/3 15:21:00 [只看该作者]

Dim dr As DataRow

改为：

Dim dr As List(of DataRow)

云开月明

小大 44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00

Post By：2017/3/3 16:35:00 [只看该作者]

谢谢老师！

可是现在又出现（如图三）
图片点击可在新窗口打开查看

此主题相关图片如下：3.png

的提示

有点色

小大 45楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/3 17:19:00 [只看该作者]

Dim tbx As WinForm.TextBox = e.Form.Controls("TextFind")
Dim chk As WinForm.CheckBox = e.Form.Controls("模糊查找")
Dim str As String = tbx.Value
Dim idx As Integer
If chk.checked Then
idx = Tables("产品不良记录").findrow("产品名称 Like '%" & str & "%'", Tables("产品不良记录").Position+1, True)
Else
idx = Tables("产品不良记录").findrow("产品名称 = '" & str & "'", Tables("产品不良记录").Position+1, True)
End If

If idx >= 0 Then
Tables("产品不良记录").Position = idx
Else
MessageBox.Show("不符合条件,请取消查询!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

云开月明

小大 46楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00

Post By：2017/3/6 10:30:00 [只看该作者]

谢谢老师！还有问题请教：如果我需要查找是“产品不良记录“表中任意一列中的内容，代码如何修改？

有点色

小大 47楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/6 11:12:00 [只看该作者]

Dim tbx As WinForm.TextBox = e.Form.Controls("TextFind")
Dim chk As WinForm.CheckBox = e.Form.Controls("模糊查找")
Dim str As String = tbx.Value
Dim idx As Integer

If chk.checked Then
    Dim filter As String = "1=2"
    For Each c As Col In Tables("产品不良记录").cols
        filter &= " or Convert(" & c.name & ",'System.String') like '%" & str & "%' "
    Next
    idx = Tables("产品不良记录").findrow(filter, Tables("产品不良记录").Position+1, True)
Else
    Dim filter As String = "1=2"
    For Each c As Col In Tables("产品不良记录").cols
        filter &= " or Convert(" & c.name & ",'System.String') = '" & str & "' "
    Next
    idx = Tables("产品不良记录").findrow(filter, Tables("产品不良记录").Position+1, True)
End If

If idx >= 0 Then
Tables("产品不良记录").Position = idx
Else
MessageBox.Show("不符合条件,请取消查询!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If