主题：工资管理系统

去项目发布那里看看

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=5&ID=6252&skin=0

 

http://www.foxtable.com/bbs/index.asp?boardid=5&page=

 

参考代码

 

Dim csname() As String = {"AAA", "BBB"}
Dim Builder As New ADOXBuilder
Builder.Open()
With Builder.Tables("表A")
    For i As Integer = 0 To csname.length - 1
        .RenameColumn(Tables("表A").Cols(i).name, csname(i))
    Next
End With
Builder.Close()

DataTables.unload("表A")
DataTables.load("表A")

参考 http://www.foxtable.com/help/topics/2122.htm

 

提示什么错？

 

Dim d As Date = vars("cc")
Dim d1 As String = Format(d,"MM")
Dim s As String
Dim Book As New XLS.Book(ProjectPath & "工资表.xls")
Dim Sheet1 As XLS.Sheet = Book.Sheets(d1 & "月")
Dim Builder As New ADOXBuilder
Builder.Open()
With Builder.Tables("工资")
    For i As Integer = 1 To 30
        s = Sheet1(6+i,1).Value
        If s > "" AndAlso Tables("工资").cols.Contains(s) = False Then
            .AddColumn(s ,ADOXType.String ,12)
        End If
    Next
End With
Builder.Close()
DataTables.unload("工资")
DataTables.load("工资")

Dim str As String = "a    b   c"
msgbox(str.replace(" ", ""))

是不是应该改成

 

nr(s1) = val(Sheet1(3+i1,2+n).Value)

 

根据字符排列，如果是1、2、10、23这样的数字，改成，如 01、02、10、23这样才行

 问问题，请详细说明，别人不可能知道你那里要填什么啊。

dr("摘要代码") = DataTables("工资摘要").Compute("max(摘要代码)") + 1

没理解你的逻辑

 

dr("工资代码") = DataTables("工资摘要").Compute("max(工资代码)", "工资项目 = '" & e.DataRow("工资项目") & "'") + 1