[求助]自动匹配的窗口代码有误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

想搞一个输入尺寸可以自动匹配纸箱并计算容积率的窗口：

如图

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

数值输入框SPL的valuechanged事件代码如下：

Dim drs As List(Of DataRow)

Dim dr1 As DataRow

Dim dr2 As DataRow

Dim spl As WinForm.NumericComboBox = e.Form.Controls("SPL")

Dim spw As WinForm.NumericComboBox = e.Form.Controls("SPW")

Dim sph As WinForm.NumericComboBox = e.Form.Controls("SPH")

Dim ZX1 As WinForm.ComboBox = e.Form.Controls("ZX1")

Dim ZX1L As WinForm.NumericComboBox = e.Form.Controls("ZX1L")

Dim ZX1W As WinForm.NumericComboBox = e.Form.Controls("ZX1W")

Dim ZX1H As WinForm.NumericComboBox = e.Form.Controls("ZX1H")

Dim ZX1V As WinForm.NumericComboBox = e.Form.Controls("ZX1V")

Dim ZX2 As WinForm.ComboBox = e.Form.Controls("ZX2")

Dim ZX2L As WinForm.NumericComboBox = e.Form.Controls("ZX2L")

Dim ZX2W As WinForm.NumericComboBox = e.Form.Controls("ZX2W")

Dim ZX2H As WinForm.NumericComboBox = e.Form.Controls("ZX2H")

Dim ZX2V As WinForm.NumericComboBox = e.Form.Controls("ZX2V")

drs= DataTables("包材数据库").Select("[包材大类]='纸箱' and [最大内尺寸_长] >= spl.Value And [最大内尺寸_宽] >= spw.value And [最大内尺寸_高] >= sph.value", "容积" )

dr1=drs(0)

dr2=drs(1)

zx1.text = dr1("包材编码")

zx1l.value = dr1("最大内尺寸_长")

zx1w.value = dr1("最大内尺寸_宽")

zx1h.value = dr1("最大内尺寸_高")

zx1v.value = spl.value * spw.value * sph.value / dr1("最大内尺寸_长")/ dr1("最大内尺寸_宽")/dr1("最大内尺寸_高")

zx2=..........

......

报错如下：未找到列 [spl.Value]。。

[此贴子已经被作者于2018/7/3 17:11:40编辑过]

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

drs= DataTables("包材数据库").Select("[包材大类]='纸箱' and [最大内尺寸_长] >= " & spl.Value & " And [最大内尺寸_宽] >= " & spw.value & " And [最大内尺寸_高] >= " & sph.value, "容积" )

If drs.count > 1 Then

dr1=drs(0)

dr2=drs(1)

zx1.text = dr1("包材编码")

zx1l.value = dr1("最大内尺寸_长")

zx1w.value = dr1("最大内尺寸_宽")

zx1h.value = dr1("最大内尺寸_高")

zx1v.value = spl.value * spw.value * sph.value / dr1("最大内尺寸_长")/ dr1("最大内尺寸_宽")/dr1("最大内尺寸_高")

End If

还是报错：

语法错误:“And”运算符前缺少操作数。

动态合成表达式例子太少了，看不太懂，

比如说表达式应该是字符串为什么不是以“结尾？？？

或者是这样

drs= DataTables("包材数据库").Select("[包材大类]='纸箱' and [最大内尺寸_长] >= "& spl.Value &" And [最大内尺寸_宽] >= "& spw.value &" And [最大内尺寸_高] >= "& sph.value &"", "容积" )

？？？

[此贴子已经被作者于2018/7/4 9:54:19编辑过]

改成

drs= DataTables("包材数据库").Select("[包材大类]='纸箱' and [最大内尺寸_长] >= " & val(spl.Value) & " And [最大内尺寸_宽] >= " & val(spw.value) & " And [最大内尺寸_高] >= " & val(sph.value), "容积" )

如果还报错，弹出这个看看

msgbox("[包材大类]='纸箱' and [最大内尺寸_长] >= " & val(spl.Value) & " And [最大内尺寸_宽] >= " & val(spw.value) & " And [最大内尺寸_高] >= " & val(sph.value))

如果还报错，做个例子发上来测试。

主题：[求助]自动匹配的窗口代码有误