Foxtable(狐表)用户栏目专家坐堂 → [求助]升级到新版本,TextBOx赋值出问题


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

主题:[求助]升级到新版本,TextBOx赋值出问题

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


加好友 发短信
等级:六尾狐 帖子:1341 积分:9755 威望:0 精华:0 注册:2015/6/30 8:46:00
[求助]升级到新版本,TextBOx赋值出问题  发帖心情 Post By:2022/4/22 13:33:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:无标题20220422.1.png
图片点击可在新窗口打开查看


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


加好友 发短信
等级:六尾狐 帖子:1341 积分:9755 威望:0 精华:0 注册:2015/6/30 8:46:00
  发帖心情 Post By:2022/4/22 18:06:00 [显示全部帖子]

怎么办?

图片点击可在新窗口打开查看此主题相关图片如下:无标题202204222.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:六尾狐 帖子:1341 积分:9755 威望:0 精华:0 注册:2015/6/30 8:46:00
  发帖心情 Post By:2022/4/23 9:52:00 [显示全部帖子]

以下是引用狐狸爸爸在2022/4/23 6:57:00的发言:
新版去掉了linq,避免提示的成员太多,下次更新我加上linq,但不提示算了。

目前可以这样修改代码:

Dim ss() As String = {"fox", "egirs", "abcd"}
If Array.IndexOf(ss, "fox") >= 0 Then
    Return True
End If 

已发布的程序会提示错误。 什么时候才有新版,现在用回原来版本的还能不能正常使用!
需要在前面加多个没用的数值才行。不知为什么,
If tb.AllowEdit Then
    If tb.AllowEdit Then
        Dim lms() As String = {"", "品质员", "料号", "IQCM收货数量", "IQCM抽检数", "IQCM不良数量", "IQCM不良描述", "IQCM备注", "检验结果" }
        For Each c As Col In tb.cols
            'MessageBox.Show("c.name|" & c.Name & "|")
            If Array.IndexOf(lms, c.Name) > 0 Then
                MessageBox.Show(c.Name) ‘如果前面不加空白值,品质员不出来。
                c.allowedit = True
            Else
                c.allowedit = False
            End If
        Next
    End If
End If


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


加好友 发短信
等级:六尾狐 帖子:1341 积分:9755 威望:0 精华:0 注册:2015/6/30 8:46:00
  发帖心情 Post By:2022/4/23 10:03:00 [显示全部帖子]

现在用回原来版本的还可以正常使用,待更新好之后再装新版本吧,必须用到Contains的地方太多了。

 回到顶部