- 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=81862)
-- 发布时间：2016/3/7 22:14:00
-- 出错了
表字段都对的 出错了 莫名其妙
此主题相关图片如下：qq截图20160225154310.jpg
-- 发布时间：2016/3/8 0:30:00
--
看看是哪个事件报错的，去看具体事件的代码。
Load的时候，会触发表的AfterLoad事件，应该是你里面写的代码不对。主要看加载条件或筛选条件。
-- 发布时间：2016/3/8 9:16:00
--
我的afterload 代码是这样的 帮我看看有没有错
Dim Filter As String
Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天
e.Form.Controls("startdate").value=Dt1
e.Form.Controls("enddate").value=Dt2
Filter ="日期 >= \'" & dt1 & "\' And 日期 <= \'" & dt2 & "\' and 单据性质=\'费用单\'"
DataTables("资金收付").loadfilter=filter
DataTables("资金收付").load()
DataTables("资金收付").SysStyles("EmptyArea").BackColor =Color.FromARGB(245,245,245)
Tables("资金收付").SetColVisibleWidth("审核|60|单据号|70|单据性质|60|日期|80|帐户名称|120|贷方金额|60|结算方式|60|单位名称|120|业务员|100|摘要|120")
Tables("资金收付").ExtendLastCol = True
Tables("资金收付").Sort = "日期"
Dim cmb1 As WinForm.ComboBox
cmb1 = Forms("费用管理").Controls("ComboBox1")
cmb1.ComboList = DataTables("资金收付").GetComboListString("帐户名称")
Dim cmb2 As WinForm.ComboBox
cmb2 = Forms("费用管理").Controls("ComboBox2")
cmb2.ComboList = DataTables("资金收付").GetComboListString("单位名称")
If Tables("资金收付").rows.count=0
Tables("资金收付").GrandTotal = False
Else
Tables("资金收付").Cols("贷方金额").GrandTotal = True
Tables("资金收付").GrandTotal = True \'显示合计模式
End If
-- 发布时间：2016/3/8 9:52:00
--
我说的是表【资金收付】的AfterLoad事件，不是窗口的啊。
你把表事件注释掉，看是否还报错。
-- 发布时间：2016/3/8 9:54:00
--
提问有个基本原则： 抓错误提示时，勾选“详细信息”后再抓图。
你越严谨，别人就越能快速准确地帮助到你。
[此贴子已经被作者于2016/3/8 9:55:03编辑过]
-- 发布时间：2016/3/8 10:51:00
--
问题找到了 原因是:把原来用的是sql数据库的代码 ,现在用的的是ACess 数据库 ，日期代码格式不对了