- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 复制行同时打开窗口1？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55282)
-- 发布时间：2014/8/13 17:07:00
-- 复制行同时打开窗口1？
若有表A表B,在表A的DataColChanged事件代码设置为：
If e.DataCol.Name =
"逻辑列名"
AndAlso e.DataRow("逻辑列名")
= True
Then
Dim
nma() As
String = {"A1","A2","A3","A4"} \'A表数据来源列
Dim
nmb()
As
String = {"B1","B2","B3","B4"}
\'B表数据接收列
Dim
dr
As
DataRow =
DataTables("表B").AddNew
For
i As
Integer = 0
To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
End
If
现问题：增加行的同时，打开所增加的行的编辑框“窗口1”
代码如何写？请帮我
-- 发布时间：2014/8/13 17:16:00
--
设计窗口1 控件绑定对应的列
Dim dr As DataRow = DataTables("表B").AddNew
改为
Dim dr As Row = Tables("表B").AddNew
代码最后加入
forms("窗口1").show
-- 发布时间：2014/8/13 20:46:00
--
回2楼，forms("窗口1").show ，打开的总是第一行的窗口，而不是新增行的窗口
[此贴子已经被作者于2014-8-13 20:46:21编辑过]
-- 发布时间：2014/8/13 20:49:00
--
回复3楼，改成这样以后，打开的不可能都是第一行
Dim dr As Row = Tables("表B").AddNew
-- 发布时间：2014/8/13 20:51:00
--
你的窗口1要编辑的是表A还是表B？
-- 发布时间：2014/8/13 21:59:00
--
表B啊
-- 发布时间：2014/8/13 22:01:00
--
实例如下
If e.DataCol.Name = "复制到查房名单" AndAlso e.DataRow("复制到查房名单") = True Then
Dim nma() As String = {"身份证号","姓名","标识","入院时间","出院时间"} \'A表数据来源列
Dim nmb() As String = {"身份证号","姓名","标识","入院时间","出院时间"} \'B表数据接收列
Dim dr As Row = Tables("查房名单").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
forms("查房名单").show
End If
[此贴子已经被作者于2014-8-13 22:01:38编辑过]
-- 发布时间：2014/8/13 22:14:00
--
有点甜啊，看下我的代码啊，
-- 发布时间：2014/8/13 22:17:00
--
以下是引用jk362223在2014-8-13 22:14:00的发言：
有点甜啊，看下我的代码啊，
有点甜啊，看下我的代码啊，
你的窗口的控件绑定的是表B吗？如果绑定的是表B，打开以后，就是定位到新增的行上面去的。
代码没有什么问题。你看看是否别的代码影响了？你做个不行的例子发上来瞧瞧。
[此贴子已经被作者于2014-8-13 22:18:19编辑过]
-- 发布时间：2014/8/13 22:53:00
--
上传示例，
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:年稤.rar |
看“住院部查房”窗口