- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 帮我看看哪里错了？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146583)
-- 发布时间：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
-- 发布时间：2020/2/27 1:07:00
--
解决了，自己没好好看帮助