以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=152962)
--  作者：outcat
--  发布时间：2020/7/27 13:37:00
--  求助
老师，我这是单据上有 4个预订电话，也添加了四条电话，想在调用这个函数，分别对应表里添加的四条记录，可现在只能找到一条记录，想要行记录对应，可试了试，不能成功，请教老师了

Dim e = args(0)

Dim dhhm1 As WinForm.Label = e.Form.Controls("电话1")
Dim dhhm2 As WinForm.Label = e.Form.Controls("电话2")
Dim dhhm3 As WinForm.Label = e.Form.Controls("电话3")
Dim dhhm4 As WinForm.Label = e.Form.Controls("电话4")


Dim dr As DataRow
dr = DataTables("参数配置表").Find("参数类型 = \'预订电话\'")
If dr IsNot Nothing Then

    dhhm1.text = dr("参数名称")
    dhhm2.text = dr("参数名称")
    dhhm3.text = dr("参数名称")
    dhhm4.text = dr("参数名称") 
Else
    Return Nothing
End If
--  作者：有点蓝
--  发布时间：2020/7/27 13:47:00
--  
Dim e = args(0)
dim drs = DataTables("参数配置表").select("参数类型 = \'预订电话\'")
for i as integer = 0 to math.min(4,drs.count) - 1
    e.Form.Controls("电话" & (i+1)).text = drs(i)("参数名称")
End If
--  作者：outcat
--  发布时间：2020/7/27 13:59:00
--  
多谢老师