[求救]组合框下选择数据,相应文本框的数据变化

yxf614

问题是:组合框"合同期限/月"下:1\选择3时,合同到期日期显示为:起租日期+90天的当日日期 2\ 选择6时,合同到期日期显示为:起租日期+180天的当日日期
请看附件哟

十分感谢!!

红尘如烟

1. Private Sub 合同期限_月_AfterUpdate()
   
2. Me.租金总额_元_ = Me.合同期限_月 * Me.月租金_元_
   
3.     If Not IsNull(合同期限_月) And Not IsNull(起租日期) Then
   
4.         Select Case Me.合同期限_月
   
5.         Case 3
   
6.             合同到期日期 = DateAdd("d", 90, 起租日期)
   
7.         Case 6
   
8.             合同到期日期 = DateAdd("d", 180, 起租日期)
   
9.         End Select
   
10.     End If
    
11. End Sub

复制代码

yxf614

多谢了


[:34]

yxf614

1\对了能不能,我回车就下面出现三个3.6.12让我选择呢直接用向下的箭头来选择,!这样就不用鼠标点击来选择那一个数字了,
2\还有能不能我回车下来就是3呢!因为这样的多数!(相当于默认是3)
谢谢!!