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

这个方法太好了。谢谢。

Dim ctn11e() As String = DataTables("弯头开料单").SQLGetComboListString("加工代号", "[piao号年月] = '" & .Value & "' and [类别] = '" & "HL" & "' ").Split("|")

For s11e As Integer = 0 To ctn11e.length - 1

Dim ctn112e() As String = DataTables("弯头开料单").SQLGetComboListString("施耐德piao号与数量", "[piao号年月] = '" & .Value & "' and [类别] = '" & "HL" & "' and [加工代号] = '" & ctn11e(s11e) & "'").Split("|")

msgbox("加工代号=" & ctn11e(s11e))

msgbox("施耐德piao号与数量的个数=" & ctn112e.length)

Dim qty11e As Integer

For s112e As Integer = 0 To ctn112e.length - 1

Dim qty112e As String = DataTables("弯头开料单").SQLGetComboListString("套数", "[piao号年月] = '" & .Value & "' and [类别] = '" & "HL" & "' and [加工代号] = '" & ctn11e(s11e) & "' and [施耐德piao号与数量] = '" & ctn112e(s112e) & "' ")

'msgbox("制造产品号=" & qty112e)

'Dim qty113e As Integer = CInt(qty112e)

'qty11e = qty11e + qty113e

... ...

上面红色那行代码不知道是不是有问题，因为紫色那行提示代码运行的结果显示，"施耐德piao号与数量的个数" 总是 1，实际上可能是1/2/3等等其他数值的。谢谢。

数据有没有保存？调试看看

For s11e As Integer = 0 To ctn11e.length - 1

msgbox("条件=" & "[piao号年月] = '" & .Value & "' and [类别] = '" & "HL" & "' and [加工代号] = '" & ctn11e(s11e) & "'") '后台数据库有没有这个条件的数据？

dim s as string = DataTables("弯头开料单").SQLGetComboListString("施耐德piao号与数量", "[piao号年月] = '" & .Value & "' and [类别] = '" & "HL" & "' and [加工代号] = '" & ctn11e(s11e) & "'")

msgbox(s)

Dim ctn112e() As String = s.Split("|")

数据肯定是保存了的，因为我重新登录系统，那些数据都是还在的。

ctn11e() 的值是存在的，因为 msgbox("加工代号=" & ctn11e(s11e)) 这个提示结果是正确的，而 msgbox(s) 这个提示的结果是空值。

那么：

(1) 与"施耐德piao号与数量"这列的属性是否有关，因为它是备注型的；

(2) 与"施耐德piao号与数量"这列的值是否有关，因为它的格式是这样子的：926FT09010019,1

1、如果字符没有超过255，没有必要使用备注，可以试试改为字符列就知道是不是备注列的问题了

2、和值没有关系

合并为完整的sql放到数据库里执行有没有数据？

select * from 弯头开料单 where 上面msgbox显示的条件

请看附页档案。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:1.zip

施耐德piao号与数量如果字符不会超过255，改为普通字符列

或者到数据库里把施耐德piao号与数量的列类型改为nvarchar(max)

我把列属性改为字符，就没事了。

备注列不能做条件表达式中的条件值列，也不能作为条件表达式的比较列，自然就不能作为SQLGetComboListString的来源列。

主题：GetComboListString