以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助  (http://foxtable.net/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
--  
多谢老师