想实现在出厂编号填写AA00然后回车,自动根据相同客户单号,按照序号排序加上销售数做出厂编号在每行序号是1的那行填写就能自动填充到其他相同客户单号行
[此贴子已经被作者于2023/11/6 14:29:47编辑过]
datacolchanged事件
if e.datacol.name = "出厂编号" then
if e.newvalue > "" andalso e.newvalue.length > 2 andalso e.datarow.isnull("序号") = false andalso e.datarow.isnull("销售数") = false then
dim s as string = e.newvalue .substring(0,2)
dim a as integer = e.datarow("销售数") + e.datarow("序号") - 1
dim k as integer = cstr(a).length
systemready = false
e.datarow("出厂编号") = s & format(e.datarow("序号"),k) & "-" & s & a
systemready = true
end if
end if
实际使用了一下这段代码,没有填充到第二行去,而且第一个照理来讲应该是aa1-aa11才对