datacolchanging事件
if e.datacol.name like "*日" then
dim k as integer = val(e.datacol.name.trim("日"))
dim sum as integer
for i as integer = 1 to k
if e.datatable.datacols.contains(i & "日") then
sum = sum + e.datarow(i & "日")
end if
next
if sum > e.datarow("未排产数量") then
msgbox("超出")
e.cancel=true
end if
endif