如果当前表（活动表）为表B，执行红色的代码，如果是表C，则执行黑色的代码，根据下面的代码 ，发现不能弹出窗口1，请问老师如何解决？
If CurrentTable.name="表B" Then
If e.Selected Then '如果选择了值
Dim tbl As Table = Tables("窗口1_Table1")
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("代号")
Tables("表B").Current("编号") = tbl.Current("编号")
Tables("表B").Current("名称") = tbl.Current("名称")
Tables("表B").Current("单位") = tbl.Current("单位")【要录入单位，下面黑色的不要录入单位，而是要录入规格，即红色的代码只要其中部分的列名，跟黑色的代码不完全相同】
If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的
e.Form.DropTable.FinishEditing()
Else '如果是通过窗口下拉的
e.Form.DropDownBox.WriteValue()
End If
End If
End If
End If
If CurrentTable.name="表C" Then
If e.Selected Then '如果选择了值
Dim tbl As Table = Tables("窗口1_Table1")
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("代号")
Tables("表C").Current("编号") = tbl.Current("编号")
Tables("表C").Current("名称") = tbl.Current("名称")
Tables("表C").Current("规格") = tbl.Current("规格")【要录入规格，不要单位，】
If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的
e.Form.DropTable.FinishEditing()
Else '如果是通过窗口下拉的
e.Form.DropDownBox.WriteValue()
End If
End If
End If
End If
加好友 
发短信
Post By：2017/7/29 23:48:00 [只看该作者]
