
此主题相关图片如下:截图01.png

总是提示如附件所示的错误,请大家帮我看一下问题出在哪能里,下面是currentchanged中的代码:
Dim tb1 As WinForm.TextBox
Dim tb2 As WinForm.TextBox
Dim tb3 As WinForm.TextBox
tb1= Forms("客户需求审核窗口").Controls("TextBox22")
tb2= Forms("客户需求审核窗口").Controls("TextBox23")
tb3= Forms("客户需求审核窗口").Controls("TextBox24")
tb1.text=Tables("客户需求审核窗口_table2").Current("更新内容")
tb2.text=Tables("客户需求审核窗口_table2").Current("更新原因")
tb3.text=Tables("客户需求审核窗口_table2").Current("备注")