以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  直接根据单号链接去打开网页问题！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122331)
--  作者：xietan417
--  发布时间：2018/7/23 11:28:00
--  直接根据单号链接去打开网页问题！
我想直接用链接去打开这个页面，老是显示空白。帮看看代码有没有问题。
http://wx.e-gain.com.cn/dredit1.htm?droid=M1807002




Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim droid As String = e.GetValues("droid")
Dim url = "dredit1.htm?droid="&droid
Dim murl = "drlist.htm"
If e.PostValues.Count = 0 Then \'生成编辑页面
    Dim dr As DataRow = DataTables("appm").SQLFind("[RCId] = " & droid)
       If dr IsNot Nothing Then
        wb.AddForm("","form1",url)
        With wb.AddInputGroup("form1","ipg1","派车单")
            With .AddInput("RCId","单号","text")
                .Value = dr("RCId")
                .Readonly= True
            End With
            With .AddInput("st","出发时间","text")
                .Value = dr("st")
                .Readonly= True
            End With
            With .AddTextArea("用车人")
                .Value =dr("namelist")
                .Readonly = True
            End With
            With .AddTextArea("目的地")
                .Value =dr("allad")
                .Readonly = True
            End With
            \' -------------------------------------------------------------------------------------以下为司机输入内容
            With .AddInput("skm","起始里程","text")
                .Value = dr("skm")
            End With
            With .AddInput("ekm","结束里程","text")
                .Value = dr("ekm")
            End With
            With .AddInput("dfee","其它费用","number")
                .Step = "0.01"
                .Placeholder = "此处输入费用金额"
            End With
            With .AddInput("vcfee","洗车费用","number")
                .Step = "0.01"
                .Placeholder = "此处仅输入洗车的费用金额"
            End With
            
           
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
    
    End If
Else
    Dim dr As DataRow = DataTables("appm").SQLFind("[RCId] =" & droid)
    If dr IsNot Nothing Then
        Dim nms() As String = {"skm","ekm","dfee","vcfee"}
        For Each nm As String In nms
            dr(nm) = e.PostValues(nm)
        Next
        dr.Save()
        \'显示完成提示,2妙手自动返回原来的页面
        wb.AppendHtml("<meta http-equiv=\'refresh\' c>",True)
        wb.AddToast("","t1", "处理完成",0).Visible = True
    Else
        With wb.AddMsgPage("","msgpage","保存失败", "此项记录可能已经被删除!") \'提示用户此订单不存在.
            .icon= "Warn"
            .AddButton("btn1","返回",murl) \'生成返回原来页面的按钮
        End With
    End If
End If
e.WriteString(wb.Build) \'生成网页
--  作者：有点甜
--  发布时间：2018/7/23 11:49:00
--  

1、

 

If e.PostValues.Count = 0 Then \'生成编辑页面

 

改成

 

If e.Values.Count = 0 Then \'生成编辑页面

 

2、你代码那里加入msgbox，看能否弹出你需要的那些值。要学会自己调试代码。
--  作者：xietan417
--  发布时间：2018/7/23 14:29:00
--  
好的！我已经调试过，并找出原因了！谢谢甜版