[求助]导入列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

列名，直接日1、日2、日3 之类的命名就好。

合并数据，直接用代码来合并。

标题，根据当月的动态修改标题。

这个表，固定是31列，如果要修改标题显示，就动态设置

http://www.foxtable.com/webhelp/scr/1275.htm

参考

Dim dlg As new OpenFileDialog
dlg.Filter = "excel|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Tables("产量报表").StopRedraw()
    '注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
    Dim nms() As String = { "工位","员工工号","姓名","日1","日2","日3","日4","日5","日6","日7","日8","日9","日10","日11","日12","日13","日14","日15","日16","日17","日18","日19","日20","日21","日22","日23","日24","日25","日26","日27","日28","日29","日30","日31","总量","白班产量","晚班产量","上班天数","白班天数","晚班天数","双休加班","请假天数","白班其他时间","晚班其他时间","备注" }
    '注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim r As Row = Tables("产量报表").AddNew()
        For m As Integer = 0 To nms.Length - 1
            If Tables("产量报表").Cols(nms(m)).IsNumeric Then
                r(nms(m)) = val(Sheet(n,m).Value)
            Else
                r(nms(m)) = Sheet(n,m).Value
            End If
        Next
    Next
    Tables("产量报表").ResumeRedraw()
End If

你这句代码，想做什么？你的列名是从哪个数字到哪个数字？

Dim sql As String = "Select sum(日" & (Date.Today.Day)-1 & ") from {产量报表}"

TextAlign

属性，返回或设置列的文本对齐方式，HorizontalAlignment枚举类型，包括三个可选值：

Center：居中
Left：靠左
Right：靠右

http://www.foxtable.com/webhelp/scr/2853.htm

日期控件不是就能显示么？

http://www.foxtable.com/webhelp/scr/0797.htm

做一个计划任务呗

If Forms("窗口1").Opened Then

Forms("窗口1").Controls("Label5").Text = format(Date.Now, "yyyy年MM月dd日 dddd HH:mm:ss")

End If

http://www.foxtable.com/webhelp/scr/0657.htm

主题：[求助]导入列