我测试你的代码没有问题的:
If DataTables("表A").DataRows(2).Locked = False Then '如果第一行没有锁定 DataTables("表A").DataRows(2).Locked = True '锁定第一行End If
你做个例上来看看