以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请帮我修改代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=80580)
--  作者：shiliang
--  发布时间：2016/1/26 17:31:00
--  请帮我修改代码
Select Case e.DataCol.Name
    Case "结账"
        Dim dms As List (of DataRow)
        
        dms = DataTables("工资数据录入").Select("[职员代码] = \'" & e.DataRow("职员代码") & "\'")
        For Each dm As DataRow In dms
            
            If dm("结账") = True Then
                Dim dw As DataRow
                Dim d As  Date
                d = new Date(dw("日期"))
                \'d = new Date(d.Year, d.Month, 1)
                \' Dim month As Integer = d.Month
                
                Dim nma() As String = {"部门名称","职员代码","职员姓名","基础工资","岗位工资","工龄工资","档案工资","享受比例","内退补贴","交通费","洗理费","养老金基数","医疗保险基数","大病保险","公积金","所得税起征点","银行卡号"} \'A表数据来源列
                Dim nmb() As String = {"部门名称","职员代码","职员姓名","基础工资","岗位工资","工龄工资","档案工资","享受比例","内退补贴","交通费","洗理费","养老金基数","医疗保险基数","大病保险","公积金","所得税起征点","银行卡号"} \'B表数据接收列
                dr = DataTables("工资数据录入").find("[职员代码] = \'" & e.DataRow("职员代码") & "\'")
                If dw Is Nothing Then
                    dw = DataTables("工资数据录入").addnew
                End If
                dw("日期") = d.addMonths(1)
                For i As Integer = 0 To nma.Length - 1
                    dw(nmb(i)) = dm (nma(i))
                Next
            End If
        Next
End Select
表中有一日期列，将本月的日期加一个月复制到新的日期，上述代码如何修改，谢谢！！
--  作者：大红袍
--  发布时间：2016/1/26 22:27:00
--  

这个意思？

 

                dw("日期") = Date.Today.AddMonths(1)
--  作者：shiliang
--  发布时间：2016/1/27 11:48:00
--  
谢谢！
--  作者：shiliang
--  发布时间：2016/1/27 11:50:00
--  
表中有一个逻辑列，如何在窗口按钮中编写代码一次性选中所有行的逻辑列，既全部选中或全部取消？
--  作者：大红袍
--  发布时间：2016/1/27 12:22:00
--  

DataTables("表A”).ReplaceFor("逻辑列", True)
--  作者：shiliang
--  发布时间：2016/1/27 13:27:00
--  
谢谢！！！