- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 代码老是错误 老师帮忙看看 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111771)
-- 发布时间：2017/12/28 23:12:00
-- [求助] 代码老是错误 老师帮忙看看
此主题相关图片如下：错误2.png
此主题相关图片如下：2.png
代码老是错误 老师帮忙看看是哪里出了问题.
-- 发布时间：2017/12/28 23:18:00
--
修改代码
Dim pr As DataRow = DataTables("产品编码表").find("产品编码=\'" & e.NewValue & "\'")
-- 发布时间：2017/12/29 0:07:00
--
Select Case e.DataCol.Name
Case "产品编码"
If e.NewValue Is Nothing Then
e.DataRow("品名") = Nothing
e.DataRow("客户") = Nothing
e.DataRow("型号") = Nothing
e.DataRow("装箱数量") = Nothing
Else
Dim dr As DataRow
dr = DataTables("产品编码表").Find("(产品编码) = \'" & e.NewValue & "\'")
If dr IsNot Nothing Then
e.DataRow("品名") = Nothing
e.DataRow("客户") = Nothing
e.DataRow("型号") = Nothing
e.DataRow("装箱数量") = Nothing
End If
End If
End Select
老师我用这样的代码 我看着视频做,
但是我表格的 相应列却没有显示数据 求解
谢谢
-- 发布时间：2017/12/29 9:00:00
--
Select Case e.DataCol.Name
Case "产品编码"
If e.NewValue Is Nothing Then
e.DataRow("品名") = Nothing
e.DataRow("客户") = Nothing
e.DataRow("型号") = Nothing
e.DataRow("装箱数量") = Nothing
Else
Dim dr As DataRow
dr = DataTables("产品编码表").Find("(产品编码) = \'" & e.NewValue & "\'")
If dr IsNot Nothing Then
e.DataRow("品名") = dr("品名")
e.DataRow("客户") = dr("客户")
e.DataRow("型号") = dr("型号")
e.DataRow("装箱数量") = dr("装箱数量")
End If
End If
End Select