Foxtable(狐表)用户栏目专家坐堂 → 代码出现错误。。望纠正


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

主题:代码出现错误。。望纠正

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/1 14:28:00 [显示全部帖子]

 1、你没有把数据源上传;或者你把外部表重定向成外部表发上来;

 

 2、代码太多不好分析。自己调试一下吧 http://www.foxtable.com/help/topics/1485.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/2 10:46:00 [显示全部帖子]

 在13楼截图那里看到了换行,是质检表里的数据不正确?你拉高表格看看是否换行了,有了多余的内容。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/2 11:41:00 [显示全部帖子]

以下是引用wzl0927在2014-4-2 10:55:00的发言:
赋值前  弹出。。。我也试过了  结果一样。   换行是什么意思。。数据应该不会有错。因为其他产品名称能行得通。就是个别不加后缀

 

换行,是指:表格数据有两行,比如

 

第一行内容

第二行内容 - 后缀

 

 由于表格单元格高度问题,只看到 【第一行内容】

[此贴子已经被作者于2014-4-2 11:41:36编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/2 13:09:00 [显示全部帖子]

以下是引用wzl0927在2014-4-2 13:04:00的发言:
这个问题一直困扰着我。。我在这个项目中新建一个表格。。。通过代码只要产品名称一列

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140402125733.png
图片点击可在新窗口打开查看
还是一样。。
我把其他的代码全部注释。。只要这么多
Dim gx As String = Tables("质检表").Current("工序顺序")
Dim MC As String = Tables("质检表").current("产品名称")
MC = MC & "-" & gx
Dim r11 As Row = Tables("质检表").Current
Dim r21 As Row = Tables("半成品明细").AddNew
r21("产品名称")= MC
结果还是一样

 

看19楼,你msgbox(mc)看看是否有两行内容。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/2 14:17:00 [显示全部帖子]

以下是引用wzl0927在2014-4-2 13:37:00的发言:
是的  有两行内容   第一行  是没有加后缀的
                         第二行   有加
那这个问题要怎么解决呢

 

那就是数据的问题了。处理一下对应的表,把第一行内容删除就正常了。

 

For Each dr As DataRow In DataTables("xxx").DataRows
    Dim s As String = dr("产品名称")
    Dim idx1 As Integer = s.LastIndexOf(chr(10))
    Dim idx2 As Integer = s.LastIndexOf(chr(13))
    Dim idx As Integer
    If idx1 > -1 OrElse idx2 > -1 Then
        idx = iif(idx1>idx2, idx1, idx2)
        dr("产品名称") = s.SubString(idx+1)
    End If
Next


 回到顶部