如
Tables("表A").grid.styles.Normal.Border.Color = Color.RedTables("表A").grid.styles.Normal.Border.Style = 1Tables("表A").grid.styles.Normal.Border.width = 5 Tables("表A").grid.styles.Normal.Border.Direction = 2 '0-2
如果要全部表,你就循环所有的表,然后设置。