诺诺开piao平台API无法接入 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有12062人关注过本帖树形打印复制链接主题：诺诺开piao平台API无法接入

zoyong

小大 31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：653 积分：7765 威望：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)("支出")

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

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)("支出")

End If

End Select

红色代码无效，大神帮忙看看

zoyong

小大 32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：653 积分：7765 威望：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

是不是模板设置错误

zoyong

小大 33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：653 积分：7765 威望：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编辑过]

zoyong

小大 34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：653 积分：7765 威望：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编辑过]

zoyong

小大 35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：653 积分：7765 威望：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

'压缩图片

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+ 中发生一般性错误。

zoyong

小大 36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：653 积分：7765 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2022/1/14 19:14:00 [显示全部帖子]

发布后的程序，狐表跨版本怎么升级

程序是19年开发的一直在用

到现在狐表升级到2022版，发布后不能直接升级

zoyong

小大 37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：653 积分：7765 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2022/4/5 8:47:00 [显示全部帖子]

项目属性中设置了这个参数，打开窗口默认最大化，点最大化按钮想缩小窗口到1400*900，窗口还是最大化，不会缩小，求解

此主题相关图片如下：360截图20220405084426120.jpg

zoyong

小大 38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：653 积分：7765 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2022/4/5 22:15:00 [显示全部帖子]

用FTP自动升级的端口是不是一样要21

其他端口能不能用

ftp://ftpuser:XXjj6717@111.3.12.81:1122/系统更新/ERP客户端/

zoyong

小大 39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：653 积分：7765 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2022/4/29 19:38:00 [显示全部帖子]

FTP远程删除文件无效。删除30天前的文件

Dim ftp As new FTPClient

ftp.Port = vars("FTP_端口")

ftp.host = vars("FTP_ip地址")

ftp.Account = vars("FTP_账号")

ftp.password = vars("FTP_密码")

ftp.RootDir = lj '设置根目录

Dim fls As List(of String) '列出目录下的所有文件

fls = ftp.GetFileList(lj)

For Each fl As String In fls

Dim ifo As new FileInfo(fl)

Dim ssp As TimeSpan = Date.Now - cdate(ifo.CreationTime)

If ssp.TotalDays >= 30 Then '删除天数

ftp.DeleteFile(lj & "\" & fl) '删除ftp上的文件

End If

zoyong

小大 40楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：653 积分：7765 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2022/5/4 10:02:00 [显示全部帖子]

{

"danger_Records": {

"Project_Code": "01DFCAB9-C709-4141-ADDF-7E5E12642356",//工程编号

"Report_Time": "2021-03-18",//上报时间

"Description": "隐患描述",

"Treatment_Charge_Person": "治理责任人",

"Treatment_Charge_Person_Phone": "13699563702",//治理负责人电话

"Plan_Completion_Time": "2021-03-18",//计划完成时间

"Danger_Name": "隐患简称",

"Danger_Position": "隐患所在部位",

"Discover_Type": "B48A9BE2-EDCE-45BA-9F57-0C6CD7651B90",//发现方式

"Deal_Type": "9107AFAF-FCEC-4888-86A1-5C51737DCD58",//处理方式

"Discover_Time": "2021-03-18"//隐患发现时间

"fileUploadModels": [

{

"Name": "",//文件名要带后缀

"Data": ""//文件base64

}

]

}

解析上面的代码无效

Dim jo As New JObject

jo("danger_Records") = New JObject

jo("danger_Records")("Project_Code") = "工程编码"

jo("danger_Records")("Report_Time") = Date.Now '上报时间

jo("danger_Records")("Description") = "隐患描述"

jo("danger_Records")("Treatment_Charge_Person") = "治理责任人"

jo("danger_Records")("Treatment_Charge_Person_Phone") = "治理负责人电话"

jo("danger_Records")("Plan_Completion_Time") = Date.Today.AddDays(7)

jo("danger_Records")("Danger_Name") = "隐患简称"

jo("danger_Records")("Danger_Position") = "隐患所在部位"

jo("danger_Records")("Discover_Type") = "发现方式"

jo("danger_Records")("Deal_Type") = "处理方式"

jo("danger_Records")("Discover_Time") = Date.Now

Dim ja As New Jarray '定义数组

ja.Add(New JObject)

ja("fileUploadModels")("Name") = "隐患简称"

ja("fileUploadModels")("Data") = "附件"

Output.Show(jo.ToString)

下一主题 >> << 上一主题

总数 31 上一页 1 2 3 4

主题：诺诺开piao平台API无法接入