Foxtable(狐表)用户栏目专家坐堂 → 帮我看看哪里错了?


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

主题:帮我看看哪里错了?

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


加好友 发短信
等级:一尾狐 帖子:437 积分:2943 威望:0 精华:0 注册:2011/3/15 12:49:00
帮我看看哪里错了?  发帖心情 Post By:2020/2/26 23:47:00 [只看该作者]


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


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

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

不知道为什么点击款号的下拉框,选择KH20TGLK0220-001的款号,不是显示当前行的数据,这是为什么?

附上DropDownForm的NodeMouseClick事件代码,请老师帮忙改改


Dim tl As  String = e.form.Controls("Label1").text
If tl <> ""
    If e.Node.Level = 1 Then '如果单击的是第二层节点
        Dim tr As Row = Tables("窗口1_订单核价系统").Current
        Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
        tr("技术担当") = dr("技术担当")
        tr(tl) = dr(tl)
        e.Form.DropDownBox.Value = tr(tl) 
        Dim cls() As String = {"客户","客户担当","类别","品名","报价数量","原料费用","辅料费用","二次加工费用","工缴费用","其他费用","管理费用","核价金额"}
        For i As Integer = 0 To  cls.Length - 1
            Forms("窗口1").Controls(cls(i)).Value = tr(cls(i)) '指定列名
        Next
        If tl = "款号"
            Forms("窗口1").Controls("样衣款号").Value = tr("样衣款号")
        ElseIf tl = "样衣款号"
            Forms("窗口1").Controls("款号").Value = tr("款号")
        End If
        Dim rs As WinForm.DateTimePicker = Forms("窗口1").Controls("计划交期")
        rs.Value = tr("计划交期")
        Forms("窗口1").Controls("技术担当").text = tr("技术担当")
        e.Form.DropDownBox.CloseDropdown()
    End If
End If

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


加好友 发短信
等级:一尾狐 帖子:437 积分:2943 威望:0 精华:0 注册:2011/3/15 12:49:00
  发帖心情 Post By:2020/2/27 1:07:00 [只看该作者]

解决了,自己没好好看帮助

 回到顶部