|
1、超级列表框中的数据红色部门怎么将数字保留为一位数不要8位这么长。
附上代码如下:
.版本 2
.支持库 eDB
.支持库 iext
.子程序 _按钮3_被单击
.局部变量 索引, 整数型
.局部变量 i, 整数型
.局部变量 客户编号, 文本型
.局部变量 产品序号, 文本型
.局部变量 产品名称, 文本型
.局部变量 数量, 文本型
.局部变量 箱数, 文本型
.局部变量 客户批次号, 文本型
.局部变量 备注, 文本型
数据库连接1.连接SQLServer (“server”, “New”, “sa”, “sa”)
记录集1.置连接 (数据库连接1)
记录集1.打开 (“BoxDeliCustbatch”, 2)
超级列表框1.全部删除 ()
记录集1.到首记录 ()
.计次循环首 (记录集1.记录数量, i)
记录集1.读文本 (0, 客户编号)
索引 = 超级列表框1.插入表项 (, 到文本 (客户编号), , , , )
记录集1.读文本 (1, 产品序号)
超级列表框1.置标题 (索引, 1, 产品序号)
记录集1.读文本 (2, 产品名称)
超级列表框1.置标题 (索引, 2, 产品名称)
记录集1.读文本 (3, 数量)
超级列表框1.置标题 (索引, 3, 数量)
记录集1.读文本 (4, 箱数)
超级列表框1.置标题 (索引, 4, 箱数)
记录集1.读文本 (5, 客户批次号)
超级列表框1.置标题 (索引, 5, 客户批次号)
记录集1.读文本 (6, 备注)
超级列表框1.置标题 (索引, 6, 备注)
记录集1.到下一条 ()
.计次循环尾 ()
2、如何将添加控制功能:在编辑框内容为空要提示输入数据信息和判断产品名称是否重复否则不能被添加成功。
.版本 2
.支持库 eDB
.子程序 _按钮2_被单击
.局部变量 a, 整数型
.局部变量 产品名称, 文本型
记录集1.移到 (记录集1.记录数量 - 1)
记录集1.添加 ()
记录集1.写文本 (0, 到文本 (编辑框1.内容))
记录集1.写文本 (“item”, 编辑框2.内容)
记录集1.写文本 (“batch”, 编辑框3.内容)
记录集1.写文本 (“Qty”, 编辑框4.内容)
记录集1.写文本 (“BoxQty”, 到文本 (编辑框5.内容))
记录集1.写文本 (“Custbatch”, 编辑框6.内容)
记录集1.写文本 (“remark”, 编辑框7.内容)
记录集1.更新 ()
信息框 (“添加成功”, 0, )
请各位高手帮忙看一下如何设置,谢谢
|
|