点击这个子窗体列表的每一条记录，另一个窗体显示该条记录的明细

Henry D. Sy

zhylee 发表于 2011-12-13 11:42
我双击订单中心的第二条
相应的详情子窗体没有变化

要点击记录，而不是记录中的某个控件！！！

zhylee

要是做成点击记录中的控件呢？？
谢谢

zhylee

谢谢 我想要的就是这个
要是能单击整行都能实现这样的效果
那就完美了！！

zhylee

谢谢 我想要的就是这个
要是能单击整行都能实现这样的效果
那就完美了！！

wgh3g

小小改动，看看无订单编号时效果

Henry D. Sy

何需这么复杂？

1. Private Sub Form_Current()
   
2.     On Error Resume Next
   
3.     Dim Criteria As String
   
4.     Dim intCount As Integer
   
5.     intCount = Me.订单编号
   
6.     Criteria = "原始编号=" & intCount
   
7.     Me.Parent.订单详情.Form.Filter = Criteria
   
8.     Me.Parent.订单详情.Form.FilterOn = True
   
9. End Sub

复制代码

wgh3g

谢谢指导

zhylee

再请问如果订单编号不是数字是文本呢！！

Henry D. Sy

zhylee 发表于 2011-12-15 16:34
再请问如果订单编号不是数字是文本呢！！

Criteria = "原始编号="" & intCount &"'"

Henry D. Sy

zhylee 发表于 2011-12-15 16:34
再请问如果订单编号不是数字是文本呢！！

1. Private Sub Form_Current()
   
2.     On Error Resume Next
   
3.     Dim Criteria As String
   
4.     Dim strCount As String
   
5.     strCount = Me.订单编号
   
6.     Criteria = "原始编号='" & intCount &"'"
   
7.     Me.Parent.订单详情.Form.Filter = Criteria
   
8.     Me.Parent.订单详情.Form.FilterOn = True
   
9. End Sub

复制代码