[求助]自动匹配的窗口代码有误 - 专家坐堂 - 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编辑过]

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