主题：从列表源表中，选择一字段，更新表中另一字段的公式表达

老师，新年好：

    现有两个表，希望通过从“课题管理”表中，列表”课题信息“选择后，获得此表中的课题号，并写入”课题管理“表中，下公式不能连动，请指点。谢谢。

Dim ktjfly As WinForm.ComboBox = e.Form.Controls("课题经费来源信息")

Dim kth As WinForm.ComboBox = e.Form.Controls("子课题号")

ktjfly.ComboList = DataTables("课题管理").GetComboListString("项目信息", "负责人 ='" & Tables("设备经费管理").Current("PI") & "'")

Tables("设备经费管理").Current("子课题号") = Tables("课题管理").Current("课题号")

Dim ktjfly As WinForm.ComboBox = e.Form.Controls("课题经费来源信息")

Dim fdr As DataRow = DataTables("课题管理").Find("负责人 = '" & ktjfly.Text & "'")

Tables("设备经费管理").Current("子课题号") = fdr("课题号")