共4 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：双击表弹出窗口
1楼
实话实说 发表于：2009/3/21 11:35:00我想在表B中双击某行，则弹出对应行的窗口，点击[编辑]按钮可进行修改或增加，关闭窗口时有锁定表B，请给双击代码和[编辑]及锁定代码
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4.table |
2楼
mr725 发表于：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
有相同编号的全锁定！～ 弹出窗口什么的俺不会了～～～
Dim sd As integer = Tables("表名").Current("编号")
drss = DataTables("表名").Select("[编号] <> ' " & sd & " ' ")
For Each dr As DataRow In drss
dr.Locked() =true
Next
有相同编号的全锁定！～ 弹出窗口什么的俺不会了～～～
3楼
mr725 发表于：2009/3/21 20:36:00试一试吧：
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目4.table |
4楼
实话实说 发表于：2009/3/23 17:10:00正是我要，十分感谢
共4 条记录, 每页显示 10 条, 页签:
[1]