主题：还是跨表取值的问题，主题咋变了呢~~

假如表A的“A”列只有一个值，

想在表B增加行时，“B”列的内容自动为表A“A”列的值；且“A”列值改变后，“B”列只有新增行才为改变值，以前数值保持不变。如何实现？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试表.table

设置表B的DataRowAdding事件：

 

e.DataRow("列名") = DataTables("表A").DataRows(0)("A")

不会无缘无故等于0，你用例子说话

你看看是什么原因，我在别的空表上试了没问题，在这表上就不行

好怪的现象，难道是你的文件有问题？

老六看看，指定第一行却引用了第二行

但愿是文件的问题，别是人品问题..

 

 

呵呵，难说哟，我还从未发生过这样的问题

等待真相....

 

再问版主个问题，在TopicLinkClick事件中写入克隆最大月份考勤信息代码：

Select Case e.Link.Name
   Case "克隆上月考勤信息"
   For Each dr1 As DataRow In DataTables("考勤表").Select("[月份]=MAX([月份])")
      Dim dr2 As DataRow = DataTables("考勤表").AddNew()
      For Each dc As DataCol In DataTables("考勤表").DataCols
           dr2(dc.name) = dr1(dc.name)
      Next
   Next

End Select

 

现在我想在执行时，将克隆过来的“月份”列递增+1。（月份列为整数型，格式201202）。即克隆后新增月份列由201202自动变为201203，如何修改？

Select Case e.Link.Name
    Case "克隆上月考勤信息"
        For Each dr1 As DataRow In DataTables("考勤表").Select("[月份]=MAX([月份])")
            Dim dr2 As DataRow = DataTables("考勤表").AddNew()
            For Each dc As DataCol In DataTables("考勤表").DataCols
                If dc.name = "月份" Then
                    dr2(dc.name) = dr1(dc.name)
                Else
                    dr2(dc.name) = dr1(dc.name) + 1
                End If
            Next
        Next
End Select