常用属性

通过DataTables集合,可以获得指定名称的DataTable(表)。

例如:

Dim dt As DataTable
dt =
DataTables("订单"
)

如果要禁止编辑某个DataTable,只需将其AllowEdit属性设为False,例如:

DataTables("订单").AllowEdit = False

在命令窗口执行上述代码,你会发现订单表的左上角出现一个锁形标记,表示此表已经被锁定,不能在其中输入数据。

如果你要取消锁定表,只需将其AllowEdit属性重新设为True:

DataTables("订单").AllowEdit = True

下表列出了DataTable的常用设置属性,它们的用法和AllowEdit属性完全一样:

属性名 说明
AllowEdit 是否允许修改表中数据
AllowAddNew 是否允许增加行
AllowClipBoard 是否允许复制粘贴数据
AllowInitialize 是否允许初始化此表
AutoAddNew 是否允许自动增加行,也就是在最后一行的最后一个单元格按回车键时,是否自动增加一行
AllowDelete 是否允许删除行
AllowLockRow 是否允许锁定行
AllowUnlockRow 是否允许取消锁定行

我们在编辑数据的时候,如果按回车键或Tab键,光标会向右移到下一单元格,通过下面的属性,你可以改变这种默认的光标移动方式:

属性名 说明
EnterKeyActionDown 按回车键是否向下移到另一单元格
TabKeyActionDown 按Tab键是否向下移到另一单元格

例如你希望按回车键向下移动光标,而不是向右移动,只需将EnterKeyActionDown属性设为True即可:

DataTables("订单").EnterKeyActionDown = True

最后三个常用的属性为:

属性名 说明
Name 返回DataTable的名称
Type 返回一个整数,表示DataTable的类型:

1 内部数据表
2 内部查询表
3 外部数据表
4 外部查询表
5 临时表

HasChanges 逻辑型,判断DataTable的数据是否已经被修改

例如执行下面的代码,将列出所有已经修改过的DataTable:

Output.Show("已经修改的数据表:")
For Each
dt As DataTable In DataTables
    If
dt.Type = 1 Orelse dt.Type = 3 Then
        If
dt.HasChanges Then
            Output.Show(dt.Name)

        End
If
    End
If
Next


本页地址:http://www.foxtable.com/webhelp/topics/1426.htm