主题：[求助]关于DropBox的问题

DropDownClosed事件

If e.Selected Then '如果选择了值
    Dim tbl As Table = Tables("窗口3_Table1")
    If tbl.Current IsNot Nothing Then
        Dim idx As String = e.Form.DropDownBox.BindingField.Split(".")(1).replace("收费项目", "")
        Tables("处方").Current("收费项目" & idx) = tbl.Current("收费项目")
        Tables("处方").Current("项目规格" & idx) = tbl.Current("项目规格")
    End If
End If