选项卡问题，文件同时传上来

潘哥　发表于：2011-01-27 17:23:13 　

复制

点击下载此附件，主要目的是：当选择不同的选项卡页的时候。在标签为“地址”的组合框中地址相应的改变。

Top

煮江品茶发表于：2011-01-27 19:55:05

不想给你改了，你的子窗体控件名称和类型设置很乱，给你以下思路：

1、将三个子窗体有关地址的控件，名称均设为【地址ID】，并均用组合框控件；

2、将子窗体控件名称搞的有点规律，搞不明白怎么搞法，就按照3的代码修改控件名称；

3、用选项卡控件的更改事件进行处理，语句结构为：

Private Sub 选项卡控件0_Change()
Dim ssql As String
Dim strwh As String
ssql = "SELECT 地址表.ID, 地址表.地址 FROM 地址表 WHERE (((地址表.电表户号) Is Not Null)) ORDER BY 地址表.ID"
Select Case Me.选项卡控件0.Value
    Case 0
        strwh = "地址ID=" & Me.电费.Form.Controls("地址ID").Value
    Case 1
        strwh = "地址ID=" & Me.水费.Form.Controls("地址ID").Value
    Case 2
        strwh = "地址ID=" & Me.地址.Form.Controls("地址ID").Value
End Select
ssql = "select * from (" & ssql & ") where " & strwh
Me.地址ID.RowSource = ssql
End Sub

Top

潘哥发表于：2011-01-27 21:59:57

谢谢煮江品茶大师。不过你的语句我很受启发。很给力。但一时半会儿理解不了。这两天我还得细细琢磨琢磨你写的语句。

strwh = "地址ID=" 。。。。。语句居然还能这么写。我还任重道远啊。虽然我还没有修改完成。最佳答案还是送出。

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

选项卡问题，文件同时传上来