以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 自动生成二维码问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=172043) |
-- 作者:evolymft -- 发布时间: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 -- 发布时间:2021/9/19 16:36:00 -- 需要提前建好存放路径吗? |
-- 作者:有点蓝 -- 发布时间:2021/9/22 8:43:00 -- 必须要提前创建好D:\\data\\这个目录,可以使用代码判断和创建:http://www.foxtable.com/webhelp/topics/0331.htm |
-- 作者:evolymft -- 发布时间:2021/9/23 11:39:00 -- Dim dr As DataRow = DataTables("员工").Find("身份证号 = \'" & e.NewValue & "\'") If dr Is Nothing Then e.DataRow("工号") =dr("工号") End If 请教老师:上面代码一直出错的原因,谢谢。
|
-- 作者:有点蓝 -- 发布时间:2021/9/23 11:48:00 -- 出什么错?请给出这个事件的完整代码 |
-- 作者:evolymft -- 发布时间: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 -- 发布时间:2021/9/23 12:33:00 -- .NET Framework 版本:4.0.30319.42000 Foxtable 版本:2021.5.29.1 错误所在事件:表,福利明细,DataColChanged 详细错误信息: 调用的目标发生了异常。 未将对象引用设置到对象的实例。 |
-- 作者:evolymft -- 发布时间:2021/9/23 12:34:00 -- .NET Framework 版本:4.0.30319.42000 Foxtable 版本:2021.5.29.1 错误所在事件:表,福利明细,DataColChanged 详细错误信息: 调用的目标发生了异常。 参数“Prompt”无法转换为类型“String”。 |
-- 作者:有点蓝 -- 发布时间: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 -- 发布时间:2021/9/23 13:48:00 -- 谢谢老师,我粗心了。 |