Foxtable(狐表)用户栏目专家坐堂 → 求助


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

主题:求助

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


加好友 发短信
等级:一尾狐 帖子:470 积分:3641 威望:0 精华:0 注册:2017/11/5 14:47:00
求助  发帖心情 Post By: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

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


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:470 积分:3641 威望:0 精华:0 注册:2017/11/5 14:47:00
  发帖心情 Post By:2020/7/27 13:59:00 [只看该作者]

多谢老师

 回到顶部