- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]未将对象引用设置到对象的实例 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94100)
-- 发布时间：2016/12/15 12:49:00
-- [求助]未将对象引用设置到对象的实例
设计【保存修改】按钮Button8 代码如下
\'保存修改
Dim c1 As Winform.Control
c1 = e.Form.Controls("TextBox1")
Dim t1 As WinForm.TextBox = c1
Dim drx As Row = Tables("生产商").Current
\'If drx("生产商编码")="" Then
\' MessageBox.Show("生产商编码必须录入!")
\' Return
\'End If
If drx("生产商名称")="" Then
MessageBox.Show("生产商名称必须录入!")
Return
End If
With Tables("生产商")
If .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
MessageBox.Show("当前行未曾修改!")
Return
Else
\'----------------------------------------------------------------------
Dim dr As DataRow= DataTables("系统参数表").Find("类别= \'生产商编码\'")
dr("流水")=dr("流水") + 1
Dim zc As String =dr("内容") & format(dr("流水"),"0000")
Tables("系统参数表").Current.Save()
drx("生产商编码")=zc
Tables("库存").Current("变动日期")=Date.Now
If 生产商编辑_状态 = "新增" Then
Tables("生产商").Current.Save()
MessageBox.Show("新增记录已经保存完毕!")
生产商编辑_状态 = ""
Else
Tables("生产商").Current.Save()
MessageBox.Show("修改完毕!")
\'
End If
\'
\'-------------------------------------------------------------------------
End If
End With
c1.Select
Dim c1 As Winform.Control
c1 = e.Form.Controls("TextBox1")
Dim t1 As WinForm.TextBox = c1
Dim drx As Row = Tables("生产商").Current
\'If drx("生产商编码")="" Then
\' MessageBox.Show("生产商编码必须录入!")
\' Return
\'End If
If drx("生产商名称")="" Then
MessageBox.Show("生产商名称必须录入!")
Return
End If
With Tables("生产商")
If .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
MessageBox.Show("当前行未曾修改!")
Return
Else
\'----------------------------------------------------------------------
Dim dr As DataRow= DataTables("系统参数表").Find("类别= \'生产商编码\'")
dr("流水")=dr("流水") + 1
Dim zc As String =dr("内容") & format(dr("流水"),"0000")
Tables("系统参数表").Current.Save()
drx("生产商编码")=zc
Tables("库存").Current("变动日期")=Date.Now
If 生产商编辑_状态 = "新增" Then
Tables("生产商").Current.Save()
MessageBox.Show("新增记录已经保存完毕!")
生产商编辑_状态 = ""
Else
Tables("生产商").Current.Save()
MessageBox.Show("修改完毕!")
\'
End If
\'
\'-------------------------------------------------------------------------
End If
End With
c1.Select
相关表
此主题相关图片如下：qq截图0001.jpg
此主题相关图片如下：qq截图0002.jpg
全局代码定义 生产商编辑_状态 As string
.NET Framework 版本：2.0.50727.8670
Foxtable 版本：2016.7.29.1
错误所在事件：窗口,添加生产商,Button8,Click
详细错误信息：
未将对象引用设置到对象的实例。
Foxtable 版本：2016.7.29.1
错误所在事件：窗口,添加生产商,Button8,Click
详细错误信息：
未将对象引用设置到对象的实例。
[此贴子已经被作者于2016/12/15 12:51:21编辑过]
-- 发布时间：2016/12/15 13:52:00
--
......
Dim drx As Row = Tables("生产商").Current
if drx is nothing then return
...
......
Dim dr As DataRow= DataTables("系统参数表").Find("类别= \'生产商编码\'")
if dr is nothing then return
......
if Tables("库存").Curren is nothing then return
Tables("库存").Current("变动日期")=Date.Now
......
-- 发布时间：2016/12/15 14:32:00
-- 回复：（有点蓝）......Dim drx As Row = Tables("生产...
抱歉，刚刚有个表名写错，不过按照您的方式修改了代码后，保存没有任何提示了，变动日期也没有增加日期内容
\'保存修改
Dim c1 As Winform.Control
c1 = e.Form.Controls("TextBox1")
Dim t1 As WinForm.TextBox = c1
Dim drx As Row = Tables("生产商").Current
If drx Is Nothing Then Return
If drx("生产商名称")="" Then
MessageBox.Show("生产商名称必须录入!")
Return
End If
With Tables("生产商")
If .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
MessageBox.Show("当前行未曾修改!")
Return
Else
\'----------------------------------------------------------------------
Dim dr1 As DataRow= DataTables("系统参数表").Find("类别= \'生产商编码\'")
If dr1 Is Nothing Then Return
dr1("流水")=dr1("流水") + 1
Dim zc As String =dr1("内容") & format(dr1("流水"),"0000")
Tables("系统参数表").Current.Save()
drx("生产商编码")=zc
If Tables("生产商").Current Is Nothing Then Return
Tables("生产商").Current("变动日期")=Date.Now
If 生产商编辑_状态 = "新增" Then
Tables("生产商").Current.Save()
MessageBox.Show("新增记录已经保存完毕!")
生产商编辑_状态 = ""
Else
Tables("生产商").Current.Save()
MessageBox.Show("修改完毕!")
\'
End If
\'
\'-------------------------------------------------------------------------
End If
End With
c1.Select
Dim c1 As Winform.Control
c1 = e.Form.Controls("TextBox1")
Dim t1 As WinForm.TextBox = c1
Dim drx As Row = Tables("生产商").Current
If drx Is Nothing Then Return
If drx("生产商名称")="" Then
MessageBox.Show("生产商名称必须录入!")
Return
End If
With Tables("生产商")
If .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
MessageBox.Show("当前行未曾修改!")
Return
Else
\'----------------------------------------------------------------------
Dim dr1 As DataRow= DataTables("系统参数表").Find("类别= \'生产商编码\'")
If dr1 Is Nothing Then Return
dr1("流水")=dr1("流水") + 1
Dim zc As String =dr1("内容") & format(dr1("流水"),"0000")
Tables("系统参数表").Current.Save()
drx("生产商编码")=zc
If Tables("生产商").Current Is Nothing Then Return
Tables("生产商").Current("变动日期")=Date.Now
If 生产商编辑_状态 = "新增" Then
Tables("生产商").Current.Save()
MessageBox.Show("新增记录已经保存完毕!")
生产商编辑_状态 = ""
Else
Tables("生产商").Current.Save()
MessageBox.Show("修改完毕!")
\'
End If
\'
\'-------------------------------------------------------------------------
End If
End With
c1.Select
红色填充的return，在进行重排后，下面代码全部变成了灰色
-- 发布时间：2016/12/15 15:16:00
--
加上msgbox调试，看执行到哪个msgbox，然后再对应查找原因。
没有执行到你预想的代码，那就是条件判断不满足。
-- 发布时间：2016/12/15 15:39:00
-- 回复：（有点色）?加上msgbox调试，看执行到哪个...
感谢斑斑的版主，能指导下在代码那几个位置加入msgbox 吗？
刚测试，到这段代码往下就停了
Dim dr1 As DataRow= DataTables("系统参数表").Find("类别= \'生产商编码\'")
[此贴子已经被作者于2016/12/15 15:42:46编辑过]
-- 发布时间：2016/12/15 15:48:00
--
改成
Dim dr1 As DataRow= DataTables("系统参数表").Find("类别= \'生产商编号\'")
-- 发布时间：2016/12/15 15:50:00
--
找到了，find“生产商编码” 表里是“生产商编号“
正常了
有个问题想请教，有个产商标识的图片列，里面链接的是远程地址，我的图片在D:\\zlamanage2016\\产商标识\\***.png 在我增加图片后，该列显示的为”//***.png“
设计的窗体中能看到图片加载，但在表中右侧快捷窗口中是个X，不显示图片，是因为二级目录导致的吗？！必须要放在根目录吗？
我FTP的服务器 设置的根目录 就是D:/产商标识/
[此贴子已经被作者于2016/12/15 15:56:31编辑过]
-- 发布时间：2016/12/15 15:56:00
-- 回复：（有点色）改成?Dim dr1 As DataRow= ...
是目录设置问题还是需要针对图片管理器控件设置根目录？
FTP目录：云服务器上 D:\\zlamanage2016\\产商标识 里面放了标识图片文件
此主题相关图片如下：qq截图20161215160100.jpg
[此贴子已经被作者于2016/12/15 16:00:54编辑过]
-- 发布时间：2016/12/15 16:32:00
--
在foxtable里面，要修改列属性，设置其 ftp 内容
http://www.foxtable.com/webhelp/scr/1407.htm
根目录可以直接设置成 /