以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  AfterSelChange遇到的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=132986)

--  作者:蓝蚂蚁
--  发布时间:2019/4/3 15:15:00
--  AfterSelChange遇到的问题
AfterSelChange有下面的代码:
If e.OldRange.ColSel <> e.NewRange.ColSel AndAlso Forms("厂家数据表查询窗口").Opened
    Dim txt As WinForm.TextBox = Forms("厂家数据表查询窗口").Controls("TextBox4")
    txt.BindingField  = Nothing
    txt.BindingField  = e.Table.Name & "." & e.Table.Cols(e.NewRange.ColSel).Name
End If

出现的问题:Forms("厂家数据表查询窗口")打开的状态,如果鼠标点击不同的行,其e.datarow(“效期”)会自动输入当前电脑系统的日期;如果这个窗口没有打开,即在主表中点击就不会出现这种情况。请问一下,是这个代码有问题吗?

--  作者:有点甜
--  发布时间:2019/4/3 15:34:00
--  
上传具体实例测试