'加载表格
If DataTables.Contains("Sale_List") = False Then
DataTables.Load("Sale_List")
End If
'生成临时表
If DataTables.Contains("产品明细")= False Then
Dim dtb As New DataTableBuilder("产品明细")
dtb.AddDef("AccountID", Gettype(Integer), 32)
dtb.AddDef("ProductID", Gettype(String), 32)
dtb.AddDef("ProductName", Gettype(String))
dtb.AddDef("ProductNumber", Gettype(Double))
dtb.AddDef("ProductPrice", Gettype(Double))
dtb.AddDef("ProductTotal", Gettype(Double))
dtb.AddDef("MainMemoEx", Gettype(String))
dtb.Build()
DataTables("产品明细").AllowEdit = False
Tables("新建销售单_sale_list").DataSource =DataTables("产品明细")
Tables("新建销售单_sale_list").AllowEdit = False
'Tables("新建销售单_sale_list").Cols("ProductID").AllowEdit = False
'Tables("新建销售单_sale_list").Cols("ProductTotal").AllowEdit = False
''Tables("新建销售单_sale_list").Cols("").AllowEdit = False
'Tables("新建销售单_sale_list").Cols("ProductName").AllowEdit = False
'Tables("新建销售单_sale_list").Cols("ProductName").AllowEdit = False
'
'
End If
Tables("新建销售单_sale_list").AddNew()
'
'Tables("新建销售单_Sale_List").Cols("ProductTotal").GrandTotal = True '指定要合计的列
'Tables("新建销售单_Sale_List").GrandTotal = True '显示合计模式
加好友 
发短信
Post By：2020/3/23 17:13:00 [显示全部帖子]
