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

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

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

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

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

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

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

 

等待真相....

 

再问版主个问题，在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，如何修改？

 

此主题相关图片如下：err.jpg

第一个问题是怎么个情况？？

 

后面那个问题受你启发搞定了，条件定义错了，改后即可

 

 If dc.name <> "月份" Then
           dr2(dc.name) = dr1(dc.name)
          Else
          dr2(dc.name) = dr1(dc.name) + 1

幸好引用的表中数据不多，我还是重新做一遍吧..