Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]table无法写入


  共有2806人关注过本帖树形打印复制链接

主题：[求助]table无法写入
帅哥哟，离线，有人找我吗？
有点甜
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/7/4 15:35:00 [只看该作者]

以下是引用yjh2002在2017/7/4 15:20:00的发言：
实例上传了.跟后台是sql有关吗？在项目打开时通过这条语句生成的。

 

没看到你发的实例，单独做个例子发上来看看。
 回到顶部
帅哥哟，离线，有人找我吗？
yjh2002
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：286 积分：2061 威望：0 精华：0 注册：2017/4/24 13:47:00 		  发帖心情 Post By：2017/7/4 17:14:00 [只看该作者]

发实例，不先打一句话发不上来吧。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:test3.rar
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/7/4 17:27:00 [只看该作者]

If mjc=1 Then
    Dim dm As String = Tables("spgl_table1").compute("max(c_spdm)")
    Dim dm1 As String = cstr(cint(dm.substring(dm.lastindexof("-")+1))+1).padleft(4,"0")
    Dim dm2 As String = dm.remove(dm.lastindexof("-")+1) & dm1
   
    Dim nr As Row = Tables("spgl_table1").addNew
    nr("c_spdm")=dm2
    Tables("spgl_table1").Filter = iif(Tables("spgl_table1").Filter>"", Tables("spgl_table1").Filter & " or _Identify = " & nr("_Identify"), "")
    Tables("spgl_table1").Position = nr.Index
Else
    messagebox.show("只有二级类别下才能增加明细!")
End If

 回到顶部
帅哥哟，离线，有人找我吗？
yjh2002
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：286 积分：2061 威望：0 精华：0 注册：2017/4/24 13:47:00 		  发帖心情 Post By：2017/7/4 21:05:00 [只看该作者]

sql后台没有 _Identify 字段啊。

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106242 积分：540333 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/7/4 21:09:00 [只看该作者]

主键是什么？是否自增的？

 回到顶部
帅哥哟，离线，有人找我吗？
yjh2002
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：286 积分：2061 威望：0 精华：0 注册：2017/4/24 13:47:00 		  发帖心情 Post By：2017/7/4 21:46:00 [只看该作者]

主键就是c_spdm不是自增。我在命令窗口里面测试，addnew后增加的新行没有行号，所以赋值也赋不上。如果我在新行里输入内容再回车，前面出现一个红色的行号，就可以用命令赋值了。

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106242 积分：540333 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/7/4 22:04:00 [只看该作者]

If mjc=1 Then
    Dim dm As String = Tables("spgl_table1").compute("max(c_spdm)")
    Dim dm1 As String = cstr(cint(dm.substring(dm.lastindexof("-")+1))+1).padleft(4,"0")
    Dim dm2 As String = dm.remove(dm.lastindexof("-")+1) & dm1
    
    Dim nr As Row = Tables("spgl_table1").addNew
    nr("c_spdm")=dm2
    Tables("spgl_table1").Filter = iif(Tables("spgl_table1").Filter>"", Tables("spgl_table1").Filter & " or c_spdm = '" & dm2 & "'", "")
    Tables("spgl_table1").Position = nr.Index
Else
    messagebox.show("只有二级类别下才能增加明细!")
End If

如果还不行，Dim nr As Row = Tables("spgl_table1").addNew
改为：Dim nr As dataRow = Tables("spgl_table1").datatable.addNew
 回到顶部
帅哥哟，离线，有人找我吗？
yjh2002
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：286 积分：2061 威望：0 精华：0 注册：2017/4/24 13:47:00 		  发帖心情 Post By：2017/7/4 22:14:00 [只看该作者]

用Dim nr As dataRow = Tables("spgl_table1").datatable.addNew这个可以了，但是不能自动把focus对到新增行了。

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106242 积分：540333 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/7/4 22:26:00 [只看该作者]

Tables("spgl_table1").Position = Tables("spgl_table1").Rows.Count - 1

 回到顶部
帅哥哟，离线，有人找我吗？
yjh2002
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：286 积分：2061 威望：0 精华：0 注册：2017/4/24 13:47:00 		  发帖心情 Post By：2017/7/5 10:43:00 [只看该作者]

如果我要撤销新增行怎么做比较好？

 回到顶部
总数 31 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询