if e.Col.Name= "列名" Then ‘如果是这个一列
if e.row.isnull("列名") = False andalso e.row("解锁")=False Then ’如果这一列已经输入内容
e.Cancel = true ‘禁止输入
End if
end if