以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  数据填充代码问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95557)
--  作者：feixianzhi
--  发布时间：2017/1/23 14:16:00
--  数据填充代码问题


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20170123141400.png
图片点击可在新窗口打开查看

我想实现上述效果，编码怎么写，请各位老师帮忙。
--  作者：有点蓝
--  发布时间：2017/1/23 15:29:00
--  
明细表，DoubleClick事件

e.Cancel = True
Dim r As Row = Tables("退货报表").Current
If r IsNot Nothing Then
    r("财务编号") = e.Row("财务编号")
    r("发票编号") = e.Row("发票编号")
End If
--  作者：feixianzhi
--  发布时间：2017/1/24 4:17:00
--  

有点蓝老师，上述代码运行后，财务编号和发票编号自动填加到表的第一行。
我想实现的是，双击明细表相应行后，财务编号和发票编号自动填加到“退货报表”中选定的行对应的列。
麻烦老师，看一下，代码怎么写。
--  作者：有点蓝
--  发布时间：2017/1/24 8:45:00
--  
 窗口副本表改下这里

Dim r As Row = Tables("窗口名称_表控件名称").Current
--  作者：feixianzhi
--  发布时间：2017/1/24 9:20:00
--  

 

有点蓝老师，还有个问题。我有两个表，一个是批发表1,一个是入库表1。我想实现，当选定批发表1时，双击则相应列复制到批发表1的选定行,当选定入库表1时，双击则相应列复制到入库表1选定行。

 

我把代码改成下面这样，结果一双击，两个表都复制了内容。麻烦有点蓝老师，代码怎么改？

 

e.Cancel = True
Dim r As Row = Tables("综合查询_Table批发表1").Current
If r IsNot Nothing Then
    r("财务编号") = e.Row("财务编号")
    r("收据发票号") = e.Row("收据发票号")
End If

Dim r1 As Row = Tables("综合查询_Table入库表1").Current
If r1 IsNot Nothing Then
    r1("财务编号") = e.Row("财务编号")
    r1("收据发票号") = e.Row("收据发票号")
End If
--  作者：有点色
--  发布时间：2017/1/24 9:29:00
--  

 

CurrentTableChanged事件，写代码

 

static ptime As Date = Nothing

Dim sp As TimeSpan = Date.now - ptime
If sp.TotalSeconds <= 1 Then
    Return \'一秒内多次触发无效
Else
    ptime = Date.now
End If

static ptname As String = CurrentTable.name
vars("上个表") = ptname
ptname = CurrentTable.name

 

 

双击代码

 

e.Cancel = True
Dim r As Row = Tables(vars("上个表")).Current
If r IsNot Nothing Then
    r("财务编号") = e.Row("财务编号")
    r("收据发票号") = e.Row("收据发票号")
End If

[此贴子已经被作者于2017/1/24 9:32:00编辑过]
--  作者：feixianzhi
--  发布时间：2017/1/24 9:42:00
--  
非常感谢有点色老师的帮忙。