|
本帖最后由 xiazaidj 于 2009-11-25 21:03 编辑
回答:
很简单,加入判断代码就可以了.以下不知道是不是你想要的:
'========================================
If Me.Frame21 = 2 Then
Me.Text供应商简称.Enabled = False
Me.Text客户.Enabled = True
Me.Text付款情况.Enabled = True
Me.Child28.SourceObject = "查询.销售数据查询"
Else
If Me.Frame21 = 1 Then
Me.Text付款情况.Enabled = False
Me.Text客户.Enabled = False
Me.Text供应商简称.Enabled = True
Me.Child28.SourceObject = "查询.进货数据查询"
Else
End If
End If
'========================================
以上上传附件,请您看一下效果! |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|