2个超级列表框的条件设置

别人的勇叔

  

子程序名	返回值类型	公开	备 注
超级列表框_出库明细置数据
参数名	类 型	参考	可空	数组	备 注
参_条件	文本型

变量名	类 型	静态	数组	备 注
局_SQL	文本型
局_索引	整数型
局_产品代码	文本型
局_产品型号	文本型
局_产品名称	文本型
局_出库数量	文本型

局_SQL ＝ “SELECT * FROM vwICBill_8”
如果真 (参_条件 ≠ “”)
局_SQL ＝ 局_SQL ＋ 取空白文本 (1) ＋ “where” ＋ 取空白文本 (1) ＋ 参_条件
_启动窗口.记录集1.打开 (局_SQL, #SQL语句, )
_启动窗口.超级列表框_出库明细.禁止重画 ()
_启动窗口.超级列表框_出库明细.全部删除 ()
_启动窗口.记录集1.到首记录 ()
计次循环首 (_启动窗口.记录集1.记录数量, 局_索引)
_启动窗口.记录集1.读文本 (“FNumber”, 局_产品代码)
_启动窗口.记录集1.读文本 (“FModel”, 局_产品型号)
_启动窗口.记录集1.读文本 (“FItemID”, 局_产品名称)
_启动窗口.记录集1.读文本 (“FQty”, 局_出库数量)
局_索引 ＝ _启动窗口.超级列表框_出库明细.插入表项 (, , , , , )
_启动窗口.超级列表框_出库明细.置标题 (局_索引, 0, 到文本 (局_索引 ＋ 1))
_启动窗口.超级列表框_出库明细.置标题 (局_索引, 1, 局_产品代码)
_启动窗口.超级列表框_出库明细.置标题 (局_索引, 2, 局_产品型号)
_启动窗口.超级列表框_出库明细.置标题 (局_索引, 3, 局_产品名称)
_启动窗口.超级列表框_出库明细.置标题 (局_索引, 4, 局_出库数量)
_启动窗口.记录集1.到下一条 ()
计次循环尾 ()
_启动窗口.记录集1.关闭 ()
_启动窗口.超级列表框_销售出库.允许重画 ()
_启动窗口.超级列表框_销售出库.刷新显示 ()
.版本 2

子程序名	返回值类型	公开	备 注
超级列表框_产品条码置数据
参数名	类 型	参考	可空	数组	备 注
参_条件	文本型

变量名	类 型	静态	数组	备 注
局_SQL	文本型
局_索引	整数型
局_产品条码	文本型
局_产品代码	文本型
局_产品型号	文本型
局_产品名称	文本型
局_出库数量	文本型

局_SQL ＝ “SELECT * FROM YXB_ICStockEntry”
如果真 (参_条件 ≠ “”)
局_SQL ＝ 局_SQL ＋ 取空白文本 (1) ＋ “where” ＋ 取空白文本 (1) ＋ 参_条件
_启动窗口.记录集1.打开 (局_SQL, #SQL语句, )
_启动窗口.超级列表框_产品条码.禁止重画 ()
_启动窗口.超级列表框_产品条码.全部删除 ()
_启动窗口.记录集1.到首记录 ()
计次循环首 (_启动窗口.记录集1.记录数量, 局_索引)
_启动窗口.记录集1.读文本 (“FBarcode”, 局_产品条码)
_启动窗口.记录集1.读文本 (“FNumber”, 局_产品代码)
_启动窗口.记录集1.读文本 (“FModel”, 局_产品型号)
_启动窗口.记录集1.读文本 (“FItem”, 局_产品名称)
_启动窗口.记录集1.读文本 (“FQty”, 局_出库数量)
局_索引 ＝ _启动窗口.超级列表框_产品条码.插入表项 (, , , , , )
_启动窗口.超级列表框_产品条码.置标题 (局_索引, 0, 到文本 (局_索引 ＋ 1))
_启动窗口.超级列表框_产品条码.置标题 (局_索引, 1, 局_产品条码)
_启动窗口.超级列表框_产品条码.置标题 (局_索引, 2, 局_产品代码)
_启动窗口.超级列表框_产品条码.置标题 (局_索引, 3, 局_产品型号)
_启动窗口.超级列表框_产品条码.置标题 (局_索引, 4, 局_产品名称)
_启动窗口.超级列表框_产品条码.置标题 (局_索引, 5, 局_出库数量)
_启动窗口.记录集1.到下一条 ()
计次循环尾 ()
_启动窗口.记录集1.关闭 ()
_启动窗口.超级列表框_产品条码.允许重画 ()
_启动窗口.超级列表框_产品条码.刷新显示 ()

i支持库列表	支持库注释
eDB	数据库操作支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 eDB<br /> .支持库 iext<br /> <br /> .子程序 超级列表框_出库明细置数据<br /> .参数 参_条件, 文本型<br /> .局部变量 局_SQL, 文本型<br /> .局部变量 局_索引, 整数型<br /> .局部变量 局_产品代码, 文本型<br /> .局部变量 局_产品型号, 文本型<br /> .局部变量 局_产品名称, 文本型<br /> .局部变量 局_出库数量, 文本型<br /> <br /> 局_SQL ＝ “SELECT * FROM vwICBill_8”<br /> .如果真 (参_条件 ≠ “”)<br />     局_SQL ＝ 局_SQL ＋ 取空白文本 (1) ＋ “where” ＋ 取空白文本 (1) ＋ 参_条件<br /> .如果真结束<br /> _启动窗口.记录集1.打开 (局_SQL, #SQL语句, )<br /> _启动窗口.超级列表框_出库明细.禁止重画 ()<br /> _启动窗口.超级列表框_出库明细.全部删除 ()<br /> _启动窗口.记录集1.到首记录 ()<br /> .计次循环首 (_启动窗口.记录集1.记录数量, 局_索引)<br />     _启动窗口.记录集1.读文本 (“FNumber”, 局_产品代码)<br />     _启动窗口.记录集1.读文本 (“FModel”, 局_产品型号)<br />     _启动窗口.记录集1.读文本 (“FItemID”, 局_产品名称)<br />     _启动窗口.记录集1.读文本 (“FQty”, 局_出库数量)<br />     局_索引 ＝ _启动窗口.超级列表框_出库明细.插入表项 (, , , , , )<br />     _启动窗口.超级列表框_出库明细.置标题 (局_索引, 0, 到文本 (局_索引 ＋ 1))<br />     _启动窗口.超级列表框_出库明细.置标题 (局_索引, 1, 局_产品代码)<br />     _启动窗口.超级列表框_出库明细.置标题 (局_索引, 2, 局_产品型号)<br />     _启动窗口.超级列表框_出库明细.置标题 (局_索引, 3, 局_产品名称)<br />     _启动窗口.超级列表框_出库明细.置标题 (局_索引, 4, 局_出库数量)<br />     _启动窗口.记录集1.到下一条 ()<br /> .计次循环尾 ()<br /> <br /> _启动窗口.记录集1.关闭 ()<br /> _启动窗口.超级列表框_销售出库.允许重画 ()<br /> _启动窗口.超级列表框_销售出库.刷新显示 ()<br /> .版本 2<br /> .支持库 eDB<br /> .支持库 iext<br /> <br /> .子程序 超级列表框_产品条码置数据<br /> .参数 参_条件, 文本型, 可空<br /> .局部变量 局_SQL, 文本型<br /> .局部变量 局_索引, 整数型<br /> .局部变量 局_产品条码, 文本型<br /> .局部变量 局_产品代码, 文本型<br /> .局部变量 局_产品型号, 文本型<br /> .局部变量 局_产品名称, 文本型<br /> .局部变量 局_出库数量, 文本型<br /> <br /> 局_SQL ＝ “SELECT * FROM YXB_ICStockEntry”<br /> .如果真 (参_条件 ≠ “”)<br />     局_SQL ＝ 局_SQL ＋ 取空白文本 (1) ＋ “where” ＋ 取空白文本 (1) ＋ 参_条件<br /> .如果真结束<br /> _启动窗口.记录集1.打开 (局_SQL, #SQL语句, )<br /> _启动窗口.超级列表框_产品条码.禁止重画 ()<br /> _启动窗口.超级列表框_产品条码.全部删除 ()<br /> _启动窗口.记录集1.到首记录 ()<br /> .计次循环首 (_启动窗口.记录集1.记录数量, 局_索引)<br />     _启动窗口.记录集1.读文本 (“FBarcode”, 局_产品条码)<br />     _启动窗口.记录集1.读文本 (“FNumber”, 局_产品代码)<br />     _启动窗口.记录集1.读文本 (“FModel”, 局_产品型号)<br />     _启动窗口.记录集1.读文本 (“FItem”, 局_产品名称)<br />     _启动窗口.记录集1.读文本 (“FQty”, 局_出库数量)<br />     局_索引 ＝ _启动窗口.超级列表框_产品条码.插入表项 (, , , , , )<br />     _启动窗口.超级列表框_产品条码.置标题 (局_索引, 0, 到文本 (局_索引 ＋ 1))<br />     _启动窗口.超级列表框_产品条码.置标题 (局_索引, 1, 局_产品条码)<br />     _启动窗口.超级列表框_产品条码.置标题 (局_索引, 2, 局_产品代码)<br />     _启动窗口.超级列表框_产品条码.置标题 (局_索引, 3, 局_产品型号)<br />     _启动窗口.超级列表框_产品条码.置标题 (局_索引, 4, 局_产品名称)<br />     _启动窗口.超级列表框_产品条码.置标题 (局_索引, 5, 局_出库数量)<br />     _启动窗口.记录集1.到下一条 ()<br /> .计次循环尾 ()<br /> _启动窗口.记录集1.关闭 ()<br /> _启动窗口.超级列表框_产品条码.允许重画 ()<br /> _启动窗口.超级列表框_产品条码.刷新显示 ()

超级列表框_出库明细置数据=超级列表框2
超级列表框_产品条码置数据=超级列表框1


请各位老师指点下

rectdbszy

只能给你个思路，必须以一个相等条件为基准，再来定不相等的，比如：如果真（产品名=产品名1 且  型号！=型号1），信息框 (“型号不对”, 0, , )

补充内容 (2021-5-20 12:47):
如直接判断不相等，哪就太多不相等了

别人的勇叔

这个是源码