以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]按钮动态Click  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=16184)

--  作者:johnbu
--  发布时间:2012/2/4 16:43:00
--  [求助]按钮动态Click
请教一下怎么样才能动态的加载Click事件,我现在有一个按钮,要动态的实现两个功能当我一个值为1的时侯按钮Click的事件为保存表1,当为0时。事件为保存表2。现在不知道怎么样才能实现,这些功能
--  作者:狐狸爸爸
--  发布时间:2012/2/4 16:45:00
--  

If 值 = 1 then

   Tables("表XX").Save()

Else

   Tables("表YY").Save()

End If


--  作者:czy
--  发布时间:2012/2/4 16:48:00
--  

if语句或Select Case语句都可以啊。

if 值 = 1 then

dataTables("表1").Save()

ElseIf 值 = 0

dataTables("表1").Save()

end if


--  作者:johnbu
--  发布时间:2012/2/4 16:49:00
--  
主要是我不知道这个值怎么才能取到,其实就是表名。因为我有另外一个按钮,那个控钮把表动态的加载了。
--  作者:johnbu
--  发布时间:2012/2/4 17:01:00
--  

看来还要再看文档啊

找到方法啦

Dim frm As WinForm.Form
frm = Forms("管理系统")
If frm.TableName = "销售订单" Then
DataTables("销售订单").Save()
ElseIf frm.TableName =  "采购订单" Then
DataTables("采购订单").Save()
End If