Foxtable(狐表)用户栏目专家坐堂 → 出错了


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

主题:出错了

帅哥哟,离线,有人找我吗?
jswjyjf
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2552 积分:20057 威望:0 精华:0 注册:2012/5/19 11:57:00
出错了  发帖心情 Post By:2016/3/7 22:14:00 [显示全部帖子]

表字段都对的 出错了 莫名其妙
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20160225154310.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
jswjyjf
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2552 积分:20057 威望:0 精华:0 注册:2012/5/19 11:57:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
jswjyjf
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2552 积分:20057 威望:0 精华:0 注册:2012/5/19 11:57:00
  发帖心情 Post By:2016/3/8 10:51:00 [显示全部帖子]

问题找到了 原因是:把原来用的是sql数据库的代码 ,现在用的的是ACess 数据库 ,日期代码格式不对了


 回到顶部