Foxtable编程

'列-表结构 DataCol
'行-表数据 DataRow
DataTables("订单").AllowEdit = False '禁止编辑表
DataTables("订单").DataCols("折扣").SetFormat("0.0") '格式化折扣列
DataTables("订单").DataRows(0).Locked = True '锁定第一行

DataTable

'DataTables("订单").AllowEdit = False '禁止编辑表
'DataTables("订单").DataCols("折扣").SetFormat("0.0") '格式化折扣列
'DataTables("订单").DataRows(0).Locked = True '锁定第一行

'Dim dr As DataRow = DataTables("订单").DataRows(0)
'Dim rq As Date = dr("日期")
'Dim sl As Integer = dr("数量")
'dr("产品") = "PD01"

Dim Total As Integer
For Each dr As DataRow In DataTables("订单").DataRows
    Total = Total + dr("数量")
Next
Output.Show(Total)

DataTable与Table:

Table是用于显示数据的表格控件,是数据展示者.
DataTable是原始的数据表.
DataTable理解为一个仓库,从厂家进的货(从后台加载数据)存放在仓库中;
Table就像一个展厅,从仓库中提取符合条件的数据,按指定的顺序(Filter和Sort)展示给客户.
主表和活动表

'MianTable单击表标题选中的表
'CurrentTable返回输入焦点所在的表
'MainTable = Tables("订单") '设置主表
Output.Show("活动表:" & CurrentTable.Name)
Output.Show("主表:" & MainTable.Name)

Table

'隐藏订单表的金额列
Tables("订单").Cols("金额").Visible = False
'Row和Current
Dim r1 As Row = Tables("订单").Rows(0) 
Dim r2 As Row = Tables("订单").Current '获取当前行,焦点所在行
Output.Show(r1("产品"))
Output.Show(r2("产品")) 
'返回当前行的索引
Output.Show(Tables("订单").Position)

'DataRow的RowState属性
Dim dr As DataRow = Tables("订单").Current.DataRow
If dr.RowState = DataRowState.Added Then
    Output.Show("当前行是新增行")
ElseIf dr.RowState = DataRowState.Modified Then
    Output.Show("当前行是修改行")
Else
    Output.Show("未修改行")
End If