Foxtable(狐表) → 用户栏目 → 专家坐堂 → 工资管理系统


  共有21356人关注过本帖树形打印复制链接

主题：工资管理系统
帅哥哟，离线，有人找我吗？
发财
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/3/15 17:22:00 [只看该作者]

Ltrim(string)
删除字符串string左边多余的空格。
RTrim(string)
删除字符串string右边多余的空格。
Trim(string)
删除字符串string两边的多余空格。
中间多余的空格？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/3/15 20:15:00 [只看该作者]

Dim str As String = "a    b   c"
msgbox(str.replace(" ", ""))
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/3/16 10:16:00 [只看该作者]

Dim d As Date = vars("cc")
Dim d1 As String = month(d)
Dim tt As Table = Tables("工资")
Dim s As String
Dim s1 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 = 0 To 38
        s = Sheet1(4+i,1).Value
        s = s.replace(" ", "")
        If s > "" AndAlso Tables("工资").cols.Contains(s) = False Then
            .AddColumn(s ,ADOXType.Decimal ,16)
        End If
    Next
End With
Builder.Close()
DataTables.unload("工资")
DataTables.load("工资")
For n As Integer = 0 To sheet1.Cols.count-3
    Dim nr As Row = Tables("工资").AddNew()
    nr("项目") = Sheet1(3,2+n).Value
    For i1 As Integer = 1 To sheet1.rows.count-8
        s1 = Sheet1(i1+3,1).Value
        s1 = s1.replace(" ", "")
        If s1.Contains(Tables("工资").Cols(i1).Name) Then
            tt.rows(n)(s1) = val(Sheet1(3+i1,2+n).Value)
        End If
    Next
Next
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/3/16 10:17:00 [只看该作者]

  tt.rows(n)(s1) = val(Sheet1(3+i1,2+n).Value)
这句代码为什么不能导入数据，但分开如下代码就可以呢？
For n As Integer = 0 To sheet1.Cols.count-3
    Dim nr As Row = Tables("工资").AddNew()
    nr("项目") = Sheet1(3,2+n).Value
    For i1 As Integer = 1 To sheet1.rows.count-8
        s1 = Sheet1(i1+3,1).Value
        s1 = s1.replace(" ", "")
        If s1.Contains(Tables("工资").Cols(i1).Name) Then
            tt.rows(n)(s1) = val(Sheet1(3+i1,2+n).Value)
        End If
    Next
Next
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/3/16 10:43:00 [只看该作者]

删除代码DataTables.unload("工资")
DataTables.load("工资")就可以了！
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/3/16 10:45:00 [只看该作者]

是不是应该改成

 

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


 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/3/18 17:15:00 [只看该作者]

Dim Rg As MSExcel.Range = Ws1.UsedRange
For n As Integer = 0 To  tf.cols.count-1 - Rg.Columns.Count-3
    If Rg.Columns.Count-3 < tf.cols.count-1 Then
        rg.Cols.Insert(2) '在第3列位置插入一列
    End If
Next
如何使到插入列后，tf.cols.count-1 与 Rg.Columns.Count-3的列相同？
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/3/19 11:40:00 [只看该作者]

应该如何插入行？

 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/3/19 12:58:00 [只看该作者]

rg.Cols.Insert(2) 
这句代码不起效果？老师应如何改？
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/3/19 14:53:00 [只看该作者]

Dim Book As New XLS.Book("c:\reports\test.xls") '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Sheet.Cols.Insert(0) '在最前面插入一列
Book.Save("c:\reports\test.xls")
Dim Proc As New Process 
Proc.File = "c:\reports\test.xls"
Proc.Start()


利用Insert方法，同时结合EntireRow和EntireColumn属性，可插入整行和整列。如：

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Range("A10")  '以这个指定的单元格为基准
Rg.EntireRow.Insert(MSExcel.XlInsertShiftDirection.xlShiftDown)'在基准单元格上面插入一行
Rg.EntireColumn.Insert(MSExcel.XlInsertShiftDirection.xlShiftToRight)  '在基准单元格左边插入一列
App.Visible = True
 回到顶部
总数 195 上一页 1 2 3 4 5 6 7 8 9 10 下一页 ..20
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 4 次数据查询