主题：[求助]点击下一行，数据表不停的滚动

PositionChanged事件

If Forms("录入窗口").Opened Then
    Dim ah As WinForm.ComboBox = Forms("录入窗口").Controls("ComboBox1")   '定位及联动-表事件currentchanged
    'ah.ComboList = DataTables("数据表").GetComboListString("案号")
    SystemReady = False
    ah.Text = Tables("数据表").Current("案号")
    SystemReady = True
End If