以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口控件报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158337)

--  作者:天一生水
--  发布时间:2020/11/17 8:48:00
--  [求助]窗口控件报错

老师好!

点击窗口单元格“待接收”,弹出审核窗口,点击“确定”按钮,报错见下图。

怎样修改按钮代码?

谢谢!

 

按钮代码如下:

\'\'\'
Dim frm As object
For Each f As WinForm.Form In Forms
    If f.Tablename = "Main" AndAlso f.opened AndAlso f.FormStyle = 0 Then
        Dim tab = f.panel.parent.parent
        Dim p = tab.tabpages(tab.Selectedindex)
        frm = Forms(p.controls(0).name)
        Exit For
    End If
Next
\'msgbox(frm.name)

Dim t As Table = Forms(frm.name).Controls("Table1")
Dim r As Row = t.Current

If r IsNot Nothing Then
    If e.Form.Controls("CheckBox接收").checked =True Then
        r("中院审核状态") = "已接收"
        r("中院申报状态") = "待提交"
        r("中院审核时间") = Date.Now
    Else
        If e.Form.Controls("TextBox1").text = "" Then
            msgbox("请填写回退理由!")
            Return
        Else
            r("基层申报状态") = "待提交"
            r("基层申报时间") = Nothing
            r("中院审核时间") = Nothing
            r("中院审核状态") = Nothing
            r("中院申报状态") = Nothing
        End If
    End If
End If
Forms("中院审核").close

 

 


图片点击可在新窗口打开查看此主题相关图片如下:2020-11-17.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2020/11/17 8:48:04编辑过]

--  作者:有点蓝
--  发布时间:2020/11/17 8:53:00
--  
Dim t As Table = Forms(frm.name).Controls("Table1").table