以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  执行报错,找不到方法解决,请老师帮助,谢谢  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179666)

--  作者:lgz518
--  发布时间:2022/9/2 13:46:00
--  执行报错,找不到方法解决,请老师帮助,谢谢

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.8.13.1
错误所在事件:窗口,数据,Button3,Click
详细错误信息:
未将对象引用设置到对象的实例。

[此贴子已经被作者于2022/9/2 14:48:13编辑过]

--  作者:有点蓝
--  发布时间:2022/9/2 14:01:00
--  
For i As Integer = 0 To Sheet.Rows.Count - 1
--  作者:lgz518
--  发布时间:2022/9/2 14:55:00
--  
       Case Else
            If a > 0 Then
                Dim dr1 As DataRow = DataTables("采购明细表").AddNew
                dr1("订单号") = dr("订单号")
                dr1("供应商") = dr("供应商")
                dr1("序号") = sheet(i, 0).Text
                dr1("料号") = sheet(i, 1).Text
                dr1("中文品名") = sheet(i, 2).Text
                dr1("规格") = sheet(i, 3).Text
                dr1("数量") = sheet(i, 4).Text
                dr1("单位") = sheet(i, 5).Text
                dr1("品牌") = sheet(i, 6).Text
                dr1("指定纳期") = sheet(i, 7).Text
                dr1("单价") = sheet(i, 8).Text
                dr1("总额") = sheet(i, 9).Text
                
                
            End If 
    End Select 

这部分不执行,没报错,我重新查一下代码,找不到什么问题

--  作者:有点蓝
--  发布时间:2022/9/2 15:16:00
--  
上传的实例我测试没有问题
--  作者:lgz518
--  发布时间:2022/9/2 15:36:00
--  

还有主表中“付款方式”和“币别”也错,
[此贴子已经被作者于2022/9/2 17:01:30编辑过]

--  作者:有点蓝
--  发布时间:2022/9/2 16:31:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:项目.zip