If Forms("个人任务信息").Opened
Dim str As String
If Tables("个人任务信息_Table1").Current IsNot Nothing Then
For i As Integer = e.NewRange.TopRow To e.NewRange.BottomRow
str = str & ",'" & e.Table.Rows(i)("_identify") & "'"
Next
StatusBar.Message2 = (str)
Tables("个人任务信息_Table2").Filter = " 编号 in (" & str.Trim(",") &")"
End If
End If
好像是由于里面有合计行,所以有报错
指定的参数已超出有效值的范围。
参数名: Cannot find column '_identify'.