- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 双击表弹出窗口 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2171)
-- 发布时间：2009/3/21 11:35:00
-- 双击表弹出窗口
我想在表B中双击某行，则弹出对应行的窗口，点击[编辑]按钮可进行修改或增加，关闭窗口时有锁定表B，请给双击代码和[编辑]及锁定代码
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4.table |
-- 发布时间：2009/3/21 14:13:00
--
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
有相同编号的全锁定！～ 弹出窗口什么的俺不会了～～～
-- 发布时间：2009/3/21 20:36:00
--
试一试吧：
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目4.table |
-- 发布时间：2009/3/23 17:10:00
--
正是我要，十分感谢