[求助]查找表中合适的数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

想实现通过输入模具外形尺寸，自动匹配表中的现有机台，并定位在这一行，以下是在按钮“根据模具尺寸选择机台”的CLICK事件中代码

Dim nr As WinForm.TextBox = e.Form.Controls("TextBox5")

Dim nms() As String=nr.text.split("*")

Dim W As Integer=nms(0)

Dim L As Integer=nms(1)

Dim H As Integer=nms(2)

Dim exp As String

Dim r As Integer

exp="[哥林柱_X尺寸]> W And [哥林柱_Y尺寸]> L And [容模厚度_MIN] < H And [容模厚度_MAX]> H "

If nr IsNot Nothing Then '已经输入了尺寸

With CurrentTable

r = .Findrow(exp) '从第一行开始查找

If r >= 0 Then '如果找到的话

.Position = r '定位到找到的行.

Else

MessageBox.show("没有找到合适的机台,请确认输入的内容是否正确","提示")

End If

End With

Else

MessageBox.show("请先输入模具外形尺寸再进行查找","提示")

End If

上面的代码提示出错找不到W列，不知道如何修改，麻烦老师帮忙改下
图片点击可在新窗口打开查看

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

此主题相关图片如下：表达式02.png

Dim nr As WinForm.TextBox = e.Form.Controls("TextBox5")

Dim nms() As String=nr.text.split("*")

Dim W As Integer=nms(0)

Dim L As Integer=nms(1)

Dim H As Integer=nms(2)

Dim exp As String

Dim r As Integer

exp="[哥林柱_X尺寸]> " & W & " And [哥林柱_Y尺寸]> " & L & " And [容模厚度_MIN] < " & H & " And [容模厚度_MAX]> " & H

msgbox(exp)

If nr IsNot Nothing Then '已经输入了尺寸

With CurrentTable

r = .Findrow(exp) '从第一行开始查找

If r >= 0 Then '如果找到的话

.Position = r '定位到找到的行.

Else

MessageBox.show("没有找到合适的机台,请确认输入的内容是否正确","提示")

End If

End With

Else

MessageBox.show("请先输入模具外形尺寸再进行查找","提示")

End If

谢谢，EXP 需要动态表达式另一处不需要，已经可以正常使用了，谢谢

[此贴子已经被作者于2018/1/12 14:51:02编辑过]

主题：[求助]查找表中合适的数据