Tables("销售").SetHeaderRowHeight(40)
Dim fnt As New Font("楷体_GB2312",11,FontStyle.Bold )
Tables("销售").SetHeaderCellFont("编号",fnt)
Tables("销售").SetHeaderCellFont("肉商",fnt)
Tables("销售").SetHeaderCellFont("重量",fnt)
Tables("销售").SetHeaderCellFont("单价",fnt)
Tables("销售").SetHeaderCellFont("修改",fnt)
Tables("销售").SetHeaderCellFont("打印",fnt)
Tables("销售").SetHeaderCellFont("作废",fnt)
Tables("销售").SetHeaderCellFont("份数",fnt)
Tables("销售").SetHeaderCellFont("金额",fnt)
Tables("销售").SetHeaderCellFont("销售fa piao号",fnt)
DataTables("收购").LoadFilter = "[重量]<>0 and [日期] = #" & vars("adate") & "#" '设置加载条件
DataTables("收购").Load()
Tables("销售").Sort = "编号"
Tables("销售").Cols("份数").GrandTotal = True '指定要合计的列
Tables("销售").Cols("重量").GrandTotal = True
Tables("销售").Cols("金额").GrandTotal = True
Tables("销售").GrandTotal = True '显示合计模式
Forms("销售窗口").Controls("RecordGrid1").Basecontrol.styles.normal.Border.width = 1
Forms("销售窗口").Controls("RecordGrid1").Basecontrol.styles.normal.Border.Color = Color.black
Forms("销售窗口").Controls("RecordGrid1").Basecontrol.styles.Fixed.border.width = 1
Forms("销售窗口").Controls("RecordGrid1").Basecontrol.styles.Fixed.Border.Color = Color.black
Dim o As C1.Win.C1FlexGrid.C1FlexGridBase = e.Form.Controls("RecordGrid1").Basecontrol
addhandler o.KeyDownEdit, addressof 销售_KeyDownEdit
addhandler o.KeyUp, addressof 销售_Keyup
addhandler o.KeyDown, addressof 销售_KeyDown
收购是主表,销售是关联表,但Tables("销售").Sort = "编号"不起作用,不能排序?