Foxtable(狐表) → 用户栏目 → 专家坐堂 → 诺诺开piao平台API无法接入


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

主题：诺诺开piao平台API无法接入
帅哥哟，离线，有人找我吗？
zoyong
 小大  41楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2021/10/21 15:26:00 [只看该作者]

Dim cmd As new SQLCommand 
cmd.C
cmd.CommandText = "S elect * from {YH_其他流水表}"
Dim dt As DataTable = cmd.ExecuteReader()

Select Case e.DataCol.Name
    Case "支付帐号","收入","支出"
        Dim mr As DataRow = e.DataRow
        Dim drs As List(of DataRow)
        dr = dt.sqlFind("[_SortKey] < " & mr("_SortKey") & " And [支付帐号] = '" & mr("支付帐号") & "'", "[_SortKey] Desc")
        If dr Is Nothing Then
            mr("余额") = mr("收入") - mr("支出")
            dr = mr
        End If
        drs = dt.S elect("[_SortKey] >= " & dr("_SortKey") & " And [支付帐号] = '" & dr("支付帐号") & "'", "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1
            drs(i)("余额") = drs(i-1)("余额") + drs(i)("收入") - drs(i)("支出")
        Next
        If e.DataCol.Name = "支付帐号" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            dr = dt.sqlFind("[_SortKey] < " & mr("_SortKey") & " And [支付帐号] = '" & e.OldValue & "'", "[_SortKey] Desc")
            If dr Is Nothing Then
                dr = dt.Find("[支付帐号] = '" & e.OldValue & "'", "[_SortKey]")
                If dr IsNot Nothing Then
                    dr("余额") = dr("收入") - dr("支出")
                End If
            End If
            If dr IsNot Nothing Then
                drs = dt.S elect("[_SortKey] >= " & dr("_SortKey") & " And [支付帐号] = '" & dr("支付帐号") & "'", "[_SortKey]")
                For i As Integer = 1 To drs.Count - 1
                    drs(i)("余额") = drs(i-1)("余额") + drs(i)("收入") - drs(i)("支出")
                Next
            End If
        End If
End Select


红色代码无效，大神帮忙看看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

2个误区。
1、既然都全部加载了数据，为什么不直接使用find，而是sqlfind，加载数据的意义何在？另外有必要每改一个单元格的数据就全部加载一次表数据吗？电脑性能有那么好么！用户有那么闲么！滥用加载功能

2、其次所有操作都是基于ExecuteReader()返回的临时表操作的，这个临时表既没有设置为可保存，上面也没有任何保存代码

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


加好友 发短信
等级：三尾狐 帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2021/10/21 20:37:00 [只看该作者]

同一窗口两张副本表，用专业报表 打印失败

Dim Book As New XLS.Book(ProjectPath & "Attachments\委托付款明细单.xlsx")
Dim fl As String = ProjectPath & "Reports\委托付款明细单.xlsx"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:委托付款明细单.xlsx

是不是模板设置错误
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

打印失败是什么现象？2个窗口表有做关联吗？

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


加好友 发短信
等级：三尾狐 帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2021/10/21 20:55:00 [只看该作者]

档案编号关联

现在错误提示“子细节区必须嵌套在父表细节区之内”


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

[此贴子已经被作者于2021/10/21 20:57:50编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  46楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

关联的是主表，副本是没有关联的。

方法1、窗口表都改为sqltable，然后对窗口表添加关联：http://www.foxtable.com/webhelp/topics/1942.htm
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  47楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2021/10/21 21:19:00 [只看该作者]

Dim r As Row = Tables(e.form.name & "_Table1").current
Dim Book As New XLS.Book(ProjectPath & "Attachments\委托付款明细单.xlsx")
Dim fl As String = ProjectPath & "Reports\委托付款明细单.xlsx"
Book.AddDataTable("委托付款_table2","主数据源","Se lect * from {XMB_委托付款明细} where 编号 = '" & r("编号") & "'")
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()


代码改成这样，错误依旧

会不会是模板设置的问题
[此贴子已经被作者于2021/10/21 21:22:45编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  48楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

2个表都要添加，请把帮助仔细看完，特别是“多个数据表和关联”

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


加好友 发短信
等级：三尾狐 帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2021/11/3 10:46:00 [只看该作者]

Dim dlg As new OpenFileDialog
dlg.Filter= "图形文件|*.jpg;*.png"   '图片格式
If dlg.ShowDialog = DialogResult.OK Then
    Dim xx As Integer = dlg.FileName.LastIndexOf("\")     '最后一次出现的位置
    Dim mc As String = dlg.FileName.SubString(xx).TrimStart("\")   '获取文件名并删除\
    Dim xg As Integer = dlg.FileName.LastIndexOf(".")   '最后一次出现的位置
    Dim hz As String = dlg.FileName.SubString(xg)    '获取后缀名
    
    '判断文件大小
    Dim z1 As String = dlg.FileName    '定义原文件路径
    Dim ifo As new FileInfo(z1)
    If ifo.Length > 20000000 Then
        MessageBox.show("文件大于20MB,请先压缩到2MB以内再上传!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
        Exit Function
    End If
    
    '获取图片像素
    Dim img = getimage(dlg.FileName)
    Dim c As Integer = img.width
    Dim k As Integer = img.height
    
    '判断照片是横排还是竖排
    Dim d1 As Double
    Dim d2 As Double
    If d2 >  "1200" Then
        If c > k Then
            d1 =  "1680"   '压缩分辨率 1680x1200
            d2 =  "1200"
        ElseIf c = k Then
            d1 =  "1200"   '压缩分辨率
            d2 =  "1200"
        Else
            d1 =  "1200"   '压缩分辨率
            d2 =  "1680"
        End If
    End If
    
    '压缩图片
    Dim z2 As String = "c:\压缩图aaa.jpg"   '压缩后文件保存路径
    If FileSys.FileExists(z2) Then '如果指定的文件存在
        FileSys.DeleteFile(z2) '则彻底删除
    End If
    AdjustImageSize(GetImage(z1),d1,d2,z2)    '引用全局变量定义  压缩图片

End If

上面代码，在WIN7正常运行，到WIN10电脑就会出错、

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2图片点击可在新窗口打开查看020.1.19.19
错误所在事件：自定义函数Translate_TableMenu
详细错误信息：
调用的目标发生了异常。
GDI+ 中发生一般性错误。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  50楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Foxtable不是专业的图片处理软件，大图片建议使用专业的软件进行压缩

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