If e.OldRange.ColSel <> e.NewRange.ColSel
Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
Select Case c.name
Case "辍学分类"
Forms("信息").Show
Dim rtxt = Forms("信息").Controls("Panel1").basecontrol.Controls("mytxt")
rtxt.ForeColor = color.Blue
rtxt.text = Tables("表B").Rows(0)("表A")
Case "当前状态"
Forms("信息").Show
Dim rtxt = Forms("信息").Controls("Panel1").basecontrol.Controls("mytxt")
rtxt.ForeColor = color.Blue
rtxt.text = Tables("表B").Rows(1)("表A")
Case "劝学措施"
Forms("信息").Show
Dim rtxt = Forms("信息").Controls("Panel1").basecontrol.Controls("mytxt")
rtxt.ForeColor = color.Blue
rtxt.text = Tables("表B").Rows(2)("表A")
Case Else
Forms("信息").Close
End Select
End If
显示下面的错误怎么办？应该是显示在窗口“信息”中，代码怎么写呢。
NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：表A,AfterSelChange
详细错误信息：
列“表A”不属于表 表B。
加好友 
发短信
Post By：2023/12/18 8:30:00 [显示全部帖子]
