主题：不同按钮控制不同单行的数据

With Tables("订单.订单详情表")

    Dim r As Integer

    r = .Find("大奥利奥咸奶油蛋糕", .RowSel + 1, "菜品", False, False, True)

    If r > - 1 Then '如果找到符合条件的行

        .Position = r '则选择该行

        t.rows(r)("数量") = t.rows(r)("数量") - 1

        e.Form.Controls("TextBox01").text = t.rows(r)("数量")

    End If

End With

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

还要再追问一下，如下图：怎么能让这三个文本框在刚打开页面的时候默认显示表里的数据：

此主题相关图片如下：1.pic.jpg