If e.DataRow.isnull("name")=False AndAlso e.DataRow.isnull("cord")=False Then
'If e.DataCol.Name = "cord" Then '如果内容发生变动的是产品列
Dim dr As DataRow
dr = DataTables("product").Find("[cord] = '" & e.NewValue & "'")
If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
CurrentTable.current.locked =True
e.DataRow("name") = dr("name")
e.DataRow("markprice") = dr("markprice")
Else
红色的地方是这样的
如果 有相同的
e.DataRow("name") = dr("name")
e.DataRow("markprice") = dr("markprice")
这两个列禁止输入内容
上面的代码好像不对
帮忙看看吧 谢谢
加好友 
发短信
Post By：2015/4/30 14:29:00 [只看该作者]
