主题：[求助]根据组合框的选项填充文本框（已解决）

在“个人奖金”表，设“查询”窗口，如何根据姓名选项，在对应的文本框中填充对应的数据；部门、岗位、考勤的数据源自“个人数据”表，其他源自“个人奖金”表。请各位老师指教，谢谢！！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:案例.rar

两个表建立关联，一个表通过表达式列引用另一个表的数据，窗口的文本框绑定到对应的字段。

你的系统架构设计很成问题，最好重新整理一下思路，你列太多，要善用关联

谢谢狐爸老师的指教，写了一段代码，想运用For Next语句简化代码，运行出错，如何修改，请各位老师指教，谢谢！！

Dim xm As String = Forms("查询").Controls("ComboBox2").Text
If MainTable.Name = "个人奖金" Then
    Dim dr As DataRow
    dr = DataTables("个人奖金").Find("[姓名] = '"& xm &"'")
    For i As Integer = 1 To 12
        Dim "jjxs"&'" i "'& As Double = dr("奖金明细_" & i &"_奖金系数")
        With Forms("查询").Controls("TextBox" & i)
            .Value = "jjxs" & i
        End With
    Next
End If

Dim xm As String = Forms("查询").Controls("ComboBox2").Text

If MainTable.Name = "个人奖金" Then
    Dim dr As DataRow
    dr = DataTables("个人奖金").Find("[姓名] = '"& xm &"'")
    For i As Integer = 1 To 12
        With Forms("查询").Controls("TextBox" & i)
            .Value = dr("奖金明细_" & i &"_奖金系数")
        End With
    Next
End If

 谢谢狐爸老师的指教，好像还有点问题，代码运行提示出错，不知问题出在哪里？

谢谢狐爸老师，问题已解决，再次感谢！！