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(“效期”)会自动输入当前电脑系统的日期;如果这个窗口没有打开,即在主表中点击就不会出现这种情况。请问一下,是这个代码有问题吗?