窗口1
绑定表：表A，窗口类型：停靠
按钮1
代码：
With Tables("表A")
If .Position < .Rows.count - 1 Then
.Position = .position + 1
Else
msgbox("已经到达最后一张单据!")
End If
End With
textbox1：
类型：texbox，绑定到：表A.number
表A
表事件 BeforeSelChange ：
If e.OldRange.RowSel <> e.NewRange.RowSel '如果选择的是不同的行
If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then '而且原来选择的是一个有效的数据行
Dim r1 As Row = e.Table.Rows(e.NewRange.RowSel)'定义新选择的行
Dim r As Row = e.Table.Rows(e.OldRange.Rowsel) '获得原来选择的行
If r.IsNull("number") Then '如果编号为空
e.Cancel = True
End If
End If
End If
现象：单击"按钮1",如果原来选择行是"number"列是空值，那么"表A"选择行不发生变化，但是"textbox1"的内容却变成了下一行的内容。
加好友 
发短信
Post By：2017/7/15 10:04:00 [只看该作者]
