Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动生成二维码问题


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

主题：自动生成二维码问题
帅哥哟，离线，有人找我吗？
evolymft
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		自动生成二维码问题  发帖心情 Post By：2021/9/19 16:35:00 [只看该作者]

For Each r As Row In Tables("表A")
    Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.QRCode
    Bar.Code = r("第一列") &  r("第二列")
    Bar.BarRatio = 0.3
    Bar.BarHeight = 0
    Bar.DisplayChecksum = False
    Bar.DisplayStartStopChar = False
    Bar.SaveImage("D:\data\" & r("序号") & ".jpg",600) '
Next

总是提示错误，请专家指点，谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2021/9/19 16:36:00 [只看该作者]

需要提前建好存放路径吗？

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


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/9/22 8:43:00 [只看该作者]

必须要提前创建好D:\data\这个目录，可以使用代码判断和创建：http://www.foxtable.com/webhelp/topics/0331.htm

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


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2021/9/23 11:39:00 [只看该作者]

Dim dr As DataRow = DataTables("员工").Find("身份证号 = '" & e.NewValue & "'")

        If dr Is Nothing Then
            e.DataRow("工号") =dr("工号")
        End If


请教老师：上面代码一直出错的原因，谢谢。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/9/23 11:48:00 [只看该作者]

出什么错？请给出这个事件的完整代码

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


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2021/9/23 12:33:00 [只看该作者]

If e.DataCol.Name = "身份证号" Then '如果更改的是身份证号码列        
        Dim dr As DataRow = DataTables("员工分类").Find("身份证号 = '" & e.NewValue & "'")
        If dr Is Nothing Then
            e.DataRow("企业微信工号") =dr("企业微信工号")
        End If    
End If
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2021/9/23 12:33:00 [只看该作者]

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2021.5.29.1
错误所在事件：表，福利明细，DataColChanged
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2021/9/23 12:34:00 [只看该作者]

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2021.5.29.1
错误所在事件：表，福利明细，DataColChanged
详细错误信息：
调用的目标发生了异常。
参数“Prompt”无法转换为类型“String”。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/9/23 13:32:00 [只看该作者]

If e.DataCol.Name = "身份证号" Then '如果更改的是身份证号码列        
        Dim dr As DataRow = DataTables("员工分类").Find("身份证号 = '" & e.NewValue & "'")
        If dr IsNot Nothing Then
            e.DataRow("企业微信工号") =dr("企业微信工号")
        End If    
End If
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2021/9/23 13:48:00 [只看该作者]

谢谢老师，我粗心了。

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