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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  列表取值问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120264)

--  作者：13775189031
--  发布时间：2018/6/11 13:15:00
--  列表取值问题

If e.IsFocusCell Then
If e.Col.Name = "焊接方法一_焊材型号" Then
e.Col.Combolist = DataTables("物资库存台帐").GetComboListString("材质", "[物资名称] = \'" & e.Row("焊接方法一_焊材名称") & "\'")
End If
End If
If e.IsFocusCell Then
If e.Col.Name = "焊接方法一_焊材规格" Then
e.Col.Combolist = DataTables("物资库存台帐").GetComboListString("规格", "[物资名称] = \'" & e.Row("焊接方法一_焊材名称") & "\' And [材质] = \'" & e.Row("焊接方法一_焊材型号") & "\'" )
End If
End If

想实现，如果“物资库存台帐”中某项物资数量为零时，则在列表中不再显示

--  作者：有点甜
--  发布时间：2018/6/11 14:18:00
--

If e.IsFocusCell Then

If e.Col.Name = "焊接方法一_焊材型号" Then

e.Col.Combolist = DataTables("物资库存台帐").GetComboListString("材质", "[物资名称] = \'" & e.Row("焊接方法一_焊材名称") & "\' and 数量 > 0")

End If

End If

If e.IsFocusCell Then

If e.Col.Name = "焊接方法一_焊材规格" Then

e.Col.Combolist = DataTables("物资库存台帐").GetComboListString("规格", "[物资名称] = \'" & e.Row("焊接方法一_焊材名称") & "\' And [材质] = \'" & e.Row("焊接方法一_焊材型号") & "\'  and 数量 > 0" )

End If

End If

--  作者：13775189031
--  发布时间：2018/6/12 9:37:00
--
谢谢！