For Each c As Col In Tables("样式窗口_Table1").cols
If c.Caption Like "*_数量" Then
Tables("样式窗口_Table1").SetHeaderCellBackColor(c.Name, Color.Cyan, 2)
Tables("样式窗口_Table1").Cols("客户").TextAlign = TextAlignEnum.Center'
Tables("样式窗口_Table1").Cols("产品").TextAlign = TextAlignEnum.Center'
Tables("样式窗口_Table1").Cols("*_数量").TextAlign = TextAlignEnum.Center
Tables("样式窗口_Table1").Cols("数量").TextAlign = TextAlignEnum.Center'
End If
Next
数量列是统计后生成多表头,不知道怎么处理?
Tables("样式窗口_Table1").Cols("客户").TextAlign = TextAlignEnum.Center'
Tables("样式窗口_Table1").Cols("产品").TextAlign = TextAlignEnum.Center'
For Each c As Col In Tables("样式窗口_Table1").cols
If c.Caption Like "*_数量" Then
Tables("样式窗口_Table1").SetHeaderCellBackColor(c.Name, Color.Cyan, 2)
c.TextAlign = TextAlignEnum.Center
c.TextAlign = TextAlignEnum.Center'
End If
Next
计时事件代码
if Tables("xx").position >= Tables("xx").rows.count - 1
Tables("xx").position = 0
else
Tables("xx").position = Tables("xx").position + 1
end if
SQLTable表用不了,用属性改颜色不行,无论改什么颜色,其背景色都白色,不知为什么会这样?
[此贴子已经被作者于2024/4/1 12:17:01编辑过]