Foxtable(狐表)用户栏目专家坐堂 → 页面上选择账套, 生成对应卡号复选列表


  共有3200人关注过本帖树形打印复制链接

主题:页面上选择账套, 生成对应卡号复选列表

帅哥哟,离线,有人找我吗?
fubblyc
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
页面上选择账套, 生成对应卡号复选列表  发帖心情 Post By:2020/6/5 18:56:00 [只看该作者]

老师,有个 卡号列表 ,列:账套,卡号 (一个账套会有多个卡号)想要 选择账套的时候,在下方显示这些卡号的复选列表要怎么弄呢?

看了ajax的发送部分表单数据 submitAjaxFileds 

document.getElementById("postcode").value=xxx

js代码是将返回值赋值给表单字段

那我们是要增加表单字段
 .Add("bw2","Google Chorme")

能怎么弄呢?


Dim e As  RequestEventArgs = args(0)
Dim zhangtao As String = args(1)
Dim wb As New WeUI
wb.title = "出纳日记账-收支明细表"
wb.AddForm("","form1","tongjibiao2jg.htm")
With wb.AddInputGroup("form1","ipg1","请选择统计条件")
    .AddSelect("zhangtao","选择账套",zhangtao)
    
    With .AddInput("d1","开始日期","date")
        Dim d As Date
        Dim y As Integer = Date.Today.Year
        Dim m As Integer = Date.Today.Month
        d = y & "-" & m & "-1"
        .Value = Format(d,"yyyy-MM-dd")
    End With
    
    With .AddInput("d2","结束时间","date")
        .Value = Format(Date.Today,"yyyy-MM-dd")
    End With
End With

With wb.AddCheckGroup("form1","卡号","请选择卡号")   '怎么才能取到这个返回值
    For Each dr As DataRow In DataTables("卡号设置").sqlSelect("账套 = '" & zhangtao & "' and 币种 = '人民币'") 
        .Add(dr("卡号"),dr("卡号"))
    Next
End With


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20200605185151.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2020/6/5 19:00:09编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110569 积分:562735 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/6 10:07:00 [只看该作者]

With wb.AddCheckGroup("form1","卡号","请选择卡号")   '怎么才能取到这个返回值
    For Each dr As DataRow In DataTables("卡号设置").sqlSelect("账套 = '" & zhangtao & "' and 币种 = '人民币'") 
        .Add("卡号" & dr("卡号"),dr("卡号"))
    Next
End With

接收:
For Each key As String In e.PostValues.Keys
if key like "卡号*"
    msgbox(key & ":" & e.PostValues(key))
end if
Next

 回到顶部
帅哥哟,离线,有人找我吗?
fubblyc
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
  发帖心情 Post By:2020/6/6 10:53:00 [只看该作者]

谢谢蓝版,已经解决

 回到顶部