Foxtable(狐表)用户栏目专家坐堂 → 查过是相同类型的怎会出现这种情况呢


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

主题:查过是相同类型的怎会出现这种情况呢

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


加好友 发短信
等级:童狐 帖子:273 积分:2190 威望:0 精华:0 注册:2017/11/8 17:37:00
查过是相同类型的怎会出现这种情况呢  发帖心情 Post By:2019/2/1 13:50:00 [只看该作者]

查过类型是相同的,怎会出现这种情况呢,查了很久
图片点击可在新窗口打开查看此主题相关图片如下:万能五笔截图_20190201134105.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:童狐 帖子:273 积分:2190 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2019/2/1 13:51:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20190201135100.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:超级版主 帖子:31653 积分:161305 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/2/1 13:53:00 [只看该作者]

很明显不是一个类型呀。
一个是List(of string)
一个是List(of string())

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


加好友 发短信
等级:五尾狐 帖子:1119 积分:8281 威望:0 精华:0 注册:2013/5/12 9:22:00
  发帖心情 Post By:2019/2/1 13:55:00 [只看该作者]

将“标准按钮2”的Click的代码贴出来看看。

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


加好友 发短信
等级:童狐 帖子:273 积分:2190 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2019/2/1 15:42:00 [只看该作者]

我都是在数据表面里设为字符型的

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


加好友 发短信
等级:童狐 帖子:273 积分:2190 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2019/2/1 15:51:00 [只看该作者]

这个问题出现好几次了,不知怎样处理

 


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


加好友 发短信
等级:童狐 帖子:273 积分:2190 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2019/2/1 15:54:00 [只看该作者]

使用的代码与其他四个表的都是一样的,设置也是在数据表面里设为字符型的,就是其中一个不行

 


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


加好友 发短信
等级:超级版主 帖子:31653 积分:161305 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/2/1 16:04:00 [只看该作者]

贴出标准菜单2的代码,或者上传具体实例说明

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


加好友 发短信
等级:童狐 帖子:273 积分:2190 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2019/2/1 16:20:00 [只看该作者]

Dim s As Table = Tables("汇总")
DataTables("汇总").DeleteFor(Tables("汇总").Filter)
Dim nms4 As List(of String()) = DataTables("表D").GetValues("第一列")
For Each nms04() As String In nms4
    For h As Integer = 0 To s.Rows.count-1
         Dim s4 As Row = s.Rows(h)
         If nms04(0) = s4("第一列")  And nms04(1) = s4("第二列")   Then
            Exit For
         Else
            If h =s.Rows.count-1 And nms04(0) <> s4("第一列") And nms04(1) <> s4("第二列")    Then
               Dim r4 As Row = Tables("汇总").addnew
               r4("第一列")=nms04(0)
               r4("第二列")=nms04(1)
            End If
         End If
     Next
Next
DataTables.Save()

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


加好友 发短信
等级:童狐 帖子:273 积分:2190 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2019/2/1 16:23:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip


 回到顶部
总数 31 1 2 3 4 下一页