主题：[求助]多表共用DropDownForm窗口如何选择值？

Dim dname As String
dname = e.Form.DropTable.Name '当前表表名
Dim dv As String
dv = Rand.NextString(5) '生成长度为5的随机字符串

Dim r As Row

If e.Selected Then
    Select Case dname
        Case "表C"
            Dim tbl As Table =  Tables("认领_table1")
            If tbl.Current IsNot Nothing Then
                Select Case NameFlag
                    Case "表A"
                        r = Tables("表A").Rows(Tables("表A").FindRow(tbl.Current.DataRow))
                        r("第二列") = Tables("表C").Current("第一列")
                        r("第三列") =dv
                        e.Form.DropDownBox.Value  = dv
                        Tables("表A").Current.Locked = True
                        Tables("表A").save
                    Case "表B"
                        r = Tables("表B").Rows(Tables("表B").FindRow(tbl.Current.DataRow))
                        r("第二列") = Tables("表C").Current("第一列")
                        r("第三列") =dv
                        e.Form.DropDownBox.Value  = dv
                        Tables("表B").Current.Locked = True
                        Tables("表B").save
                    Case Else
                End Select
            End If
    End Select
End If

Dim dname As String
dname = e.Form.DropTable.Name '当前表表名
Dim dv As String
dv = Rand.NextString(5) '生成长度为5的随机字符串

Dim r As Row

If e.Selected Then
    Select Case dname
        Case "表C"
            Dim tbl As Table =  Tables("认领_table1")
            If tbl.Current IsNot Nothing Then
                Select Case NameFlag
                    Case "表A"
                        r = Tables("表A").Rows(Tables("表A").FindRow(tbl.Current.DataRow))
                        r("第二列") = Tables("表C").Current("第一列")
                        r("第三列") =dv
                        e.Form.DropDownBox.Value  = dv
                        r.Locked = True
                        r.save
                    Case "表B"
                        r = Tables("表B").Rows(Tables("表B").FindRow(tbl.Current.DataRow))
                        r("第二列") = Tables("表C").Current("第一列")
                        r("第三列") =dv
                        e.Form.DropDownBox.Value  = dv
                        r.Locked = True
                        r.save
                    Case Else
                End Select
            End If
    End Select
End If