[求助][讨论]网页上日期引用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

查询按钮是提交到"kfglc.htm"页面，应该是这个页面没有返回内容

httprequest事件完整代码发上来看看

老师：完整代码就是106楼

那是函数的代码，不是httprequest事件代码

老师：你好！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文本文档.txt

谢谢你的指导

列表输入框没有value属性：ip.value = bh

如果要设置默认值，参考：http://www.foxtable.com/mobilehelp/topics/0048.htm

ip.value = bh

改为

Dim bh2 As String = "[" & bh & "]"

Dim sl2 As String = "|" & String.Join("|",gjs.ToArray) & "|"

sl2 = sl2.replace(bh,bh2).TrimEnd("|")

ip = .AddSelect("bh","订单编号",sl2)

老师：你好在Edit函数增加

With wb.AddCheckGroup("form1","包装要求","包装要求")
                .Add("打卷","打卷")
                .Add("定长","定长")
                .Add("打卷内包","打卷内包")
            End With

Save函数中 Dim pp As String
nms = New String() {"不定长","打卷","打卷内包","打卷外包","定长","码布","折幅打卷"} '将nms重新定义为品牌数组
For Each nm As String In nms
    If e.PostValues.ContainsKey(nm) AndAlso e.PostValues(nm).Trim() = "on" Then '不能省略Trim
        pp = pp & nm & ","
    End If
Next
If pp > "" Then
    dr("包装要求") = pp.Trim(",")
End If

运行正常能把包装保存行中但是把Edit函数中代码更换成

    Dim cdg As ExWeUI.ExCheckGroup = ExWeUI.WebUI.AddCheckGroup("","包装要求","包装要求")
    cdg.add("不定长","不定长")
    cdg.add("打卷","打卷")
    cdg.add("打卷内包","打卷内包")
    cdg.add("打卷外包","打卷外包")
    cdg.add("定长","定长")
cdg.add("码布","码布")
cdg.add("折幅打卷","折幅打卷")
    wb.InsertHTML("form1",cdg.BuildHtml)

网页正常显示，但不能把”包装要求“保存到行中要怎样写才能用第二种网页显示方式把“包装要求”保存至行中，谢谢指导

If e.PostValues.ContainsKey(nm) AndAlso e.PostValues(nm).Trim() = "on" Then

改为

If e.PostValues.ContainsKey(nm) Then

老师：你好！这段代码：

业务员登录运行后行数是按业务员加载的，但数据不是按业务员加载我要怎样修改代码

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文本文档.txt

主题：[求助][讨论]网页上日期引用