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


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

主题：工资管理系统
帅哥哟，离线，有人找我吗？
发财
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | 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的列相同？
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

应该如何插入行？

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


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

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


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/3/21 10:15:00 [显示全部帖子]

为什么目录树打开二级科目时，顺序不能由小到大？

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


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/3/21 16:19:00 [显示全部帖子]

 Dim dr As DataRow = DataTables("工资摘要").AddNew
        dr("摘要代码") = 
        dr("工资项目") = nd.Text
        dr("工资摘要") = "新节点"
        nd = nd.Nodes.Add("新节点")
        tr.SelectedNode = nd
        tr.Select()
        tr.BeginEdit()
代码中摘要代码应如何输入？
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/3/21 16:32:00 [显示全部帖子]

不好意思，比如摘要代码最大1105，插入节点后，新增加的节点代码是1106？应如何输入代码？

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


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/3/21 16:53:00 [显示全部帖子]

        dr("工资代码") = DataTables("工资摘要").Compute("max(工资代码)", " = '" & e.DataRow("") & "'") + 1
1101，1102，1103，1104，1105，2101，2102。。。。。。
如何做到新增加的节点代码是1106？
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/3/22 16:29:00 [显示全部帖子]

Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = e.Form.Controls("TreeView1")
nd = tr.SelectedNode
If nd IsNot Nothing Then
    If nd.Level = 2 Then
        MessageBox.Show("最多允许三层节点!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Dim dr As DataRow = DataTables("工资摘要").AddNew
        dr("代码") = DataTables("工资摘要").Compute("max(代码)", "摘要 = '" & dr("摘要") & "'") + 1
        dr("摘要") = nd.Text
        dr("摘要") = "新节点"
        nd = nd.Nodes.Add("新节点")
        tr.SelectedNode = nd
        tr.Select()
        tr.BeginEdit()
    End If
End If
如何插入代码？        dr("代码") = DataTables("工资摘要").Compute("max(代码)", "摘要 = '" & dr("摘要") & "'") + 1
        dr("摘要") = nd.Text
不能准确插入代码？
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/3/23 8:32:00 [显示全部帖子]

生成代码是1而不是0103

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


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/3/23 8:33:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20160323083021.png
图片点击可在新窗口打开查看
 回到顶部
总数 115 上一页 1 2 3 4 5 6 7 8 9 10 下一页 ..12
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06641 秒, 5 次数据查询