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("收据fa piao号") = e.Row("收据fa piao号")
End If
[此贴子已经被作者于2017/1/24 9:32:00编辑过]
加好友 
发短信
Post By：2017/1/24 9:29:00 [显示全部帖子]
