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

要实现主表转换后只显示最后日期的月份数据，代码为重置列的最后一行，出现错误，请教大师

Dim count As short

Dim dr1 As DataRow
dr1 = DataTables("原料辅材").DataRows(count-1)

With DataTables("原料辅材")
    .DataCols("日期").RaiseDataColChanged(dr1)
End With

Dim dr2 As DataRow
dr2 = DataTables("溶出辅材").DataRows(count-1)

With DataTables("溶出辅材")
    .DataCols("日期").RaiseDataColChanged(dr2)
End With

Dim dr3 As DataRow
dr3 = DataTables("沉降辅材").DataRows(count-1)

With DataTables("沉降辅材")
    .DataCols("日期").RaiseDataColChanged(dr3)
End With

你的代码中，Count没有赋值，默认等于0，count -1等于-1，所以出现了你说的错误。
 
 取得某个表最后一行：
 
with DataTables("原料辅材")
  dr1 = .DataRows(.DataRows.count-1)
End With