以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- HideUnSelectedRows无效 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79716) |
-- 作者:weizhangying -- 发布时间:2016/1/7 17:57:00 -- HideUnSelectedRows无效 datatable("表A").HideUnSelectedRows 无效
从字符串“”到类型“Double”的转换无效。 提示 就这一句 不知道该怎么用 |
-- 作者:大红袍 -- 发布时间:2016/1/7 17:58:00 -- Tables("表A").HideUnSelectedRows |
-- 作者:weizhangying -- 发布时间:2016/1/7 18:04:00 -- Tables("员工").HideUnSelectedRows
是我打错了 就是用 Tables("表a").HideUnSelectedRows 才出错的 |
-- 作者:大红袍 -- 发布时间:2016/1/7 18:06:00 -- 这句代码不可能有问题。 |
-- 作者:weizhangying -- 发布时间:2016/1/7 18:10:00 -- Tables("员工").HideUnSelectedRows
If Tables("员工").AllowEdit = False Then
是我不好 没有给你全部代码 |
-- 作者:大红袍 -- 发布时间:2016/1/7 19:23:00 -- 应该是你 datacolchanged 事件的代码有问题,比如用字符串跟数字比较了,如
If e.DataRow("某列") = 0 Then
左边的值是字符串。 |
-- 作者:weizhangying -- 发布时间:2016/1/7 19:45:00 -- 也是没有找到比较的语句 商户_DataColChanged
Dim r As DataRow = DataTables("操作日志").AddNew r("动作") = "改变商户表" r("spid") = e.DataRow("_Identify") r("变更_前") = e.OldValue r("变更_后") = e.NewValue r("日期") = Date.Today r("操作员") = _UserName r("操作日志") = Date.Now & "★" & e.DataCol.name & "★" & e.OldValue & "→" & e.NewValue r.Save
商户_BeforeSaveDataRow
Dim r As DataRow = DataTables("操作日志").AddNew r("动作") = "保存 商户表" r("日期") = Date.Today r("操作员") = _UserName r("操作日志") = "★" & Date.Now r.Save
商户_DataRowAdded
Dim r As DataRow = DataTables("操作日志").AddNew r("动作") = "增加商户表" r("日期") = Date.Today r("操作员") = _UserName r("操作日志") = Date.Now & "★" & "增加行的主键为" & e.DataRow("_Identify") r.Save
商户_BeforeDeleteDataRow
Dim r As DataRow = DataTables("操作日志").AddNew r("动作") = "删除商户表" r("日期") = Date.Today r("操作员") = _UserName Dim di As String For Each r1 As DataCol In e.DataTable.DataCols di = di + "|" + r1.name + "=" & e.DataRow(r1.name) Next
r("操作日志") = Date.Now & "★" & "删除行的主键为" & e.DataRow("_Identify") & "内容为(" & di & ")" r.Save |
-- 作者:大红袍 -- 发布时间:2016/1/7 20:25:00 -- 代码都没问题,做个例子上传上来测试。 |