主题：CurrentChanged

If e.Table.Current IsNot Nothing Then
    Tables("任务单").Cols("模具开模申请单").Visible = False
    Tables("任务单").Cols("技术图纸").Visible = False
    Tables("任务单").Cols("任务说明").Visible = False
    Tables("任务单").Cols("过程记录").Visible = False
    e.Table.AutoSizeRow(e.Table.Current.Index)
    Tables("任务单").Cols("模具开模申请单").Visible = True
    Tables("任务单").Cols("技术图纸").Visible = True
    Tables("任务单").Cols("任务说明").Visible = True
    Tables("任务单").Cols("过程记录").Visible = True
End If

 msgbox(1)

Dim t As Table = Tables("项目阶段")
If e.Table.Current IsNot Nothing Then
    t.Filter = "任务单编号 = '" & e.Table.Current("任务单编号") & "'"
Else
   t.Filter = "false"
End If

 msgbox("2--" & Forms ("过程记录").opened)

If Forms ("过程记录").opened Then

msgbox(3)
Dim t01 As Table = Tables("生产管理_Table01")
Dim t10 As Table = Tables("过程记录_Table10")
If t01.Current IsNot Nothing Then
    t10.Filter = "任务单编号 = '" & t01.Current("任务单编号") & "'"
Else
     t10.Filter = "false"
End If
msgbox(t10.Filter)
End If