- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 我不想重复发贴，我发不出去啊 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109090)
-- 发布时间：2017/11/3 20:48:00
-- 我不想重复发贴，我发不出去啊
此主题相关图片如下：5.png
出现这样的错误 提示-- 发布时间：2017/11/3 20:51:00
--
此主题相关图片如下：6.png
贴子是这样的效果，就不让发贴了，不是全是这样，就我自己发的是这样的
-- 发布时间：2017/11/3 20:54:00
--
浏览器有问题，换个浏览器
-- 发布时间：2017/11/3 20:55:00
--
就这一条记录有问题，其他的贴是正常的
-- 发布时间：2017/11/3 20:59:00
--
Dim dr As DataRow=DataTables("申报表").sqlfind("编号=\'" & Tables("申报查询_table1").Current("编号") &"\'")
这句总报如下错误，不知道什么原因，msgbox已经显示编号=\'1\'但还是报错
未将对象引用设置到对象的实例。与编号的数据库类型有关系吗？ 数据库中有编号=1的记录，查不到， 请蓝老师帮我分析一下，其他贴我真的发不出去啊
-- 发布时间：2017/11/3 20:59:00
--
这种贴没有办法修复的，看回复就好
-- 发布时间：2017/11/3 21:16:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
查询部分输入1，然后申报清除第一条记录，报错，麻烦蓝老师帮助看一下，谢谢
-- 发布时间：2017/11/3 21:29:00
--
Dim Result As DialogResult
Result = MessageBox.Show("确实要清除当前选中记录的申报吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
If Tables("申报查询_table1").Current IsNot Nothing Then
Dim dr As DataRow=DataTables("申报表").sqlfind("编号=" & Tables("申报查询_table1").Current("编号"))
If dr IsNot Nothing Then
dr("税票号")=""
\'dr("缴纳时间")=Nothing
dr("是否缴库")=False
dr("申报状态")="未申报"
dr.save
End If
End If
Tables("申报查询_table1").Current("税票号")=""
\'Tables("申报查询_table1").Current("缴纳时间")=Nothing
Tables("申报查询_table1").Current("是否缴库")=False
Tables("申报查询_table1").Current("申报状态")="未申报"
msgbox("清除成功!")
End If