以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  额，老师，怎么在用代码 运行另一个 控件 的click 代码。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111735)
--  作者：rxfmrqq
--  发布时间：2017/12/28 15:40:00
--  额，老师，怎么在用代码 运行另一个 控件 的click 代码。

Dim dr As DataRow = DataTables("兽药品种库").find("通用名 = \'" & e.sender.text & "\'")
If dr IsNot Nothing Then
    Dim i As Integer
    For Each str As String In dr.lines("产品备注")
        For i = 1 To 15
            If Forms("兽药品种录入").Controls("属性" & i & "").text = str.SubString(str.IndexOf(":")+1,str.length - str.IndexOf(":")-1) Then
                Forms("兽药品种录入").Controls("属性" & i & "").click

            End If
        Next  
    Next
End If

 

额，就是 用代码 去运行  Forms("兽药品种录入").Controls("属性" & i & "")  的 cilck 中的代码。

额，或者说，模拟，单击一下 Forms("兽药品种录入").Controls("属性" & i & "")  控件。
--  作者：有点甜
--  发布时间：2017/12/28 15:47:00
--  

参考 http://www.foxtable.com/webhelp/scr/2309.htm

 
--  作者：rxfmrqq
--  发布时间：2017/12/28 16:16:00
--  额
额，老师，如果提示说 checkbox 没有 这个公共成员。
--  作者：有点甜
--  发布时间：2017/12/28 16:26:00
--  

回复楼上，只有button按钮可以这样写，其余按钮，无法做到你需要功能。

 

如果是checkbox的话，建议你把代码写到checkedchanged事件，通过改变其checked触发。