- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 最新升级的软件无法在新添窗口导入从窗口中导出的文件 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171447)
-- 发布时间：2021/8/30 16:43:00
-- 最新升级的软件无法在新添窗口导入从窗口中导出的文件
我想上传实例，但出现如题问题：
此主题相关图片如下：qq图片20210830163304.png
窗口菜单中的保存按钮无法保存：
单据是这样的：
此主题相关图片如下：qq图片20210830164136.png
Select Case e.StripItem.Name
Case "保存" \'保存代
If e.Form.Controls("rq").text = "" Then
messagebox.show("请选择日期")
Return
ElseIf Tables("出纳录入收款数据_Table1").Compute("Count([借方_金额])") = 0 Then
Return
Else
e.Form.Controls("lblState").text = "2"
Tables("出纳录入收款数据_Table1").FinishEditing \'如果单元格处于编辑状态,需要结束编辑,让编辑内容写入单元格
For Each dt As DataRow In Tables("出纳录入收款数据_Table1").DataTable.Select("[借方_金额] Is not null")
dt("日期") = e.Form.Controls("rq").text
dt("出纳入账顺序号") = e.Form.Controls("dh").text
dt("出纳账安日期生成单号辅助列") = e.Form.Controls("dh1").text
dt("附件张数") = e.Form.Controls("TextBox1").text
dt("录入员") = e.Form.Controls("lry").text
If e.Form.Controls("shr").text = Nothing Then
dt("审核人") = Nothing
Else
dt("审核人") = e.Form.Controls("shr").text
End If
dt("前辍") = (e.Form.Controls("TextBox2").text).SubString(0,2)
dt("操作人姓名") = User.Name & " " & Date.Now
If e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(1) Then
dt("外币贷方金额") = dt("外币金额")
End If
Dim Parts0() As String = (e.Form.Controls("ComboBox3").Value).Split("-")
If Parts0.length > 0 Then
dt("会计科目") = Parts0(0)
If Parts0.length > 1 Then
dt("明细科目") = Parts0(1)
End If
End If
dt.Save
Next
End If
DataTables("出纳数据记账源").load
End Select
-- 发布时间：2021/8/30 16:45:00
--
类型一致，都是独立窗口，还是不能导入，新牌软件是不是有问题？
[此贴子已经被作者于2021/8/30 16:45:48编辑过]
-- 发布时间：2021/8/30 16:48:00
--
这是一个动态加载的sql数据表。
-- 发布时间：2021/8/30 16:49:00
--
安装错了吧，可能使用商业版导入开发版的文件，他们不通用的
-- 发布时间：2021/8/30 17:21:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:33.foxdb |
[此贴子已经被作者于2021/8/30 17:24:35编辑过]
-- 发布时间：2021/8/30 17:25:00
--
上传成功，现在的问题是无法保存录入数据。
[此贴子已经被作者于2021/8/30 17:26:17编辑过]
-- 发布时间：2021/8/30 17:40:00
--
5漏项目根本无法测试，一大堆错误
-- 发布时间：2021/8/30 18:32:00
--
刚才导出后没试，现在试过没报错了，你可以象截图一样录入些数据，但无法保存。
-- 发布时间：2021/8/30 20:52:00
--
保存的时候出现一些列名错误的提示，改正确，或者去掉这些列名赋值的代码即可。这么明显的提示都解决不了？
-- 发布时间：2021/8/31 9:14:00
--
谢谢指出，我昨天下午把出纳数据源表弄错为财务数据源表，后改过来了，但没有试保存，如果试一下应该能发现问题所在，现在补上两列没问题了。