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
加好友 
发短信
Post By：2018/1/12 14:30:00 [显示全部帖子]
