With wb.AddInputGroup("form1","ipg1",bdbt)
With .AddInput("rw","当前任务","Text")
.Value = pr!TskDsc
.Readonly = True
End With
With .AddInput("bgjz","报告截止","date")
.Value = pr!DueTm
.Readonly = True
End With
With .AddInput("bgr","当前报告日","date")
.Value = pr!FlTm
.Readonly = True
End With
With .AddInputCell("ic1",2) '通过InputCell增加输入框, 2表示突出显示(含图标)
.AddLabel("ljdsc","接待时长",0) '增加标签,0显示在左边
If pr!RcpPrd > 0
.AddInput("jdsc","text",1).Value = pr!RcpPrd
Else
.AddInput("jdsc","text",1).PlaceHolder= "接待总时间长度,以分钟计算!" '增加输入框,1表示显示在中间
End If
End With
Dim lxs As String = "|自来|引流|邀约|跟单|"
If pr!RcpSer > ""
lxs = lxs.replace("|" & pr!RcpSer & "|","|[" & pr!RcpSer & "]|").trimend("|")
Else
lxs = lxs.trimend("|")
End If
With .AddInputCell("ic2",2) '通过InputCell增加输入框, 2表示突出显示(含图标)
.AddLabel("llx","客户类型",0) '增加标签,0显示在左边
.AddSelect("lx",lxs,1)
End With
'跟单类型:必须选填跟单客户信息
Dim khhs As String = "|" + DataTables("MyPtn").SQLGetComboListString("ClnNam","StfID = '"& ygh &"' And (Trn333 = '' Or Trn333 Is null)") +"|"
If pr!ClnNam > ""
khhs = khhs.replace("|" & pr!ClnNam & "|","|[" & pr!ClnNam & "]|").trimend("|")
Else
khhs = khhs.trimend("|")
End If
With .AddInputCell("ic3",2) '通过InputCell增加输入框, 2表示突出显示(含图标)
.AddLabel("lkhh","跟单客户",0) '增加标签,0显示在左边
.AddSelect("khh",khhs,1)
End With
With .AddInputCell("ic6",2) '通过InputCell增加输入框, 2表示突出显示(含图标)
.AddLabel("lkh","客户姓名",0) '增加标签,0显示在左边
If pr!ClnNam > ""
.AddInput("kh","text",1).Value = pr!ClnNam
Else
.AddInput("kh","text",1).PlaceHolder= "客户姓名记录" '增加输入框,1表示显示在中间
End If
End With
End With
基本录入情况在上面，ic2的值如果选择了“跟单”，那么ic3显示使用，ic6隐藏；如果ic2的值如果选择了其他选项，那么ic3隐藏，ic6显示使用。
请教蓝版，如何做到呢？
[此贴子已经被作者于2022/2/21 0:05:45编辑过]
加好友 
发短信
F6
Post By：2022/2/21 0:06:00 [只看该作者]
