DoubleClick 加入代码
MessageBox.Show(e.Table.Name)
e.cancel = true
Se1ect Case e.Table.Name
Case "表A"
'针对表A的代码
Case "表B"
'针对表B的代码
Case "表C"
'针对表C的代码
Case Else
If forms("report_flow").opened
forms("report_flow").controls("TextBox2").text = e.Table.Cells...... (e.Col ?........)
End If
End Se1ect