主题：双击表弹出窗口

我想在表B中双击某行，则弹出对应行的窗口，点击[编辑]按钮可进行修改或增加，关闭窗口时有锁定表B，请给双击代码和[编辑]及锁定代码

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.table

 Dim drss As List(Of Datarow) 
 Dim sd As integer = Tables("表名").Current("编号")
 drss = DataTables("表名").Select("[编号] <> ' " & sd & " ' ")
 For Each dr As DataRow In drss
     dr.Locked() =true  
 Next

有相同编号的全锁定！～   弹出窗口什么的俺不会了～～～

试一试吧：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.table

正是我要，十分感谢