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

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

复制代码

zhylee

  我这点不明白
表格中没有这项呀
你这个控件也没有表达式
！！

Henry D. Sy

zhylee 发表于 2011-12-16 09:15
我这点不明白
表格中没有这项呀
你这个控件也没有表达式

什么意思？

zhylee

就是说我不清除您这个金额从何而来
怎么能计算出结果的
我看这个控件里没有“=数量*单价”的表达式

Henry D. Sy

合计是引用子窗体上的
你看看子窗体页脚上的控件！

Henry D. Sy

Henry D. Sy 发表于 2011-12-16 10:33
合计是引用子窗体上的
你看看子窗体页脚上的控件！

轻风

我17楼不是已经回答了，楼主咋还在纠结。

zhylee

可能我的表述不是很清楚，我说的是子窗体中的金额怎么产生的
我要是把金额用的方法就不行了
给各位带来麻烦真不好意思{:soso_e183:}

Henry D. Sy

可能我的表述不是很清楚
不是不清楚，是非常不清楚，一会儿点击记录，一会儿又单击控件。
金额不是在记录源里有现成的吗？？

zhylee

我这样的编号就不能完成这项任务