求助

1、如何实现bh1选择值之后，直接赋值给bh  Value=e.PostValues("bh1") 这个部分的代码如何修正

2、如果用红色部分代码   流程节点信息不显示  貌似ip无值 bh1没有传输进来值

3、如果用蓝色字体ip.AddInput("bh","编号","text")代码运行  可以程序正常显示流程节点信息

Dim wb As New weui

Dim ip As object
With wb.AddInputGroup("form1","ipg1","查询单号")
    With.AddSelect("bh1","编号","|" & DataTables("订单").sqlGetComboListString("编号","[状态] <> \'技术部门签收\'"))
End With
ip.AddInput("bh","编号","text").Value=e.PostValues("bh1")
End With

……

If bh > "" Then \'如果有提交了编号
    If dr Is Nothing Then \'查询无此编号
        wb.AddTopTips("","toptip1","无此单号数据!").msec = 2000
    Else \'有此编号,则显示对应的流程状态
        With ExWeUI.WebUI.AddStepGroup("","step1","单据【" & bh & "】流程信息")
            With .AddStep("st00","","新建") \'显示新建状态
                If dr("状态") = "新建" Then
                    .color = ExWeUI.ExWeuiStepColorEnum.green
                    .IsCurrent = True
                End If
            End With
            Dim drs As List(Of DataRow) = DataTables("订单流程表").Select("编号=\'" & bh & "\'","步骤") \'查询获取已经审核的流程
            For Each dr1 As DataRow In drs
                With .AddStep("st0" & dr1("步骤"),dr1("步骤"),dr1("状态"))
                    .color = ExWeUI.ExWeuiStepColorEnum.blue
                    If dr1("状态") = dr("状态") \'如果状态等于订单表当前状态,说明是当前步骤,界面显示为实心序号状态
                        .IsCurrent = True
                    End If
                    .Description = dr1("审核时间") & "<br />" & dr1("审核意见")
                End With
            Next
            Dim max As Integer = 0
            If drs.Count > 0 Then
                max = drs(drs.Count - 1)("步骤") \'获取已审核的最新步骤
            End If
            drs = DataTables("流程表").Select("类别=\'订单\' and 步骤 >" & max,"步骤")
            For Each dr1 As DataRow In drs \'从已审核的最新步骤下一个步骤开始显示未处理的步骤
                With .AddStep("st0" & dr1("步骤"),dr1("步骤"),dr1("状态"))
                    .color = ExWeUI.ExWeuiStepColorEnum.wait
                    .Description = "待处理"
                    If drs.Count = 1 Then
                        .color = ExWeUI.ExWeuiStepColorEnum.Orange
                        .Description = "流程已全部结束"
                    End If
                End With
            Next
            \'添加已完成
            If drs.Count = 0 Then
                With .AddStep("st99","","已完成")
                    .color = ExWeUI.ExWeuiStepColorEnum.Orange
                    .Description = "流程已全部结束"
                End With
            End If
            wb.InsertHTML(.BuildHtml)
        End With
    End If
End If
e.WriteString(wb.Build)