主题：如何填写完数据自动填充到其他行

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

建议编号前缀另外使用一个列表示，类似：http://www.foxtable.com/webhelp/topics/2403.htm这里的三、按类别编号