主题：工资管理系统

请问老师！有简单一点的工资管理系统的例子吗？

去项目发布那里看看

 

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("工资")

如何清除excel表的姓名中间的空格？