[求助]根据组合框的选项填充文本框（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]根据组合框的选项填充文本框（已解决）

共有9674人关注过本帖树形打印复制链接主题：[求助]根据组合框的选项填充文本框（已解决）

yyzlxc

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00

[求助]根据组合框的选项填充文本框（已解决） 发帖心情

Post By：2012/8/31 10:34:00 [显示全部帖子]

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:案例.rar

[此贴子已经被作者于2012-8-31 15:15:56编辑过]

yyzlxc

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00

Post By：2012/8/31 14:32:00 [显示全部帖子]

谢谢狐爸老师的指教，写了一段代码，想运用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